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I. INTRODUCTION 



Modification of linear or non linear dynamic system behaviours via feedback 
control of either the estimated or observed variable or the dynamic state variable is a 
fundamental tool of modern control engineering. Such desired modifications might 
include [Ref. 1 J: 

a. Stabilizing otherwise unstable systems . 

b. Decoupling overall system response to plant or controller noise, 

c. Desensitizing system performance as a function of plant variations (robustness) or, 

d. Invoking a desired transient response characteristic and modal signature. 

For linear time invariant single input single output (SISO) systems, calculation of 
the required feedback to perform one of these desired system behaviours is relatively 
straight forward and well documented [Refs. 2,3]. The SISO static feedback problem is 
additionally characterized by a specific design specification. The classic pole placement 
problem for example results in solving a full rank linear system of equations for the 
unknown feedback gains. These feedback gains will then invoke a set of closed loop 
poles which in turn give rise to specific transient behaviours. Further modification of 
the modal behaviour of the system can only be accomplished through a different set of 
feedback gains. This limited degree of freedom of the feedback design space of the 
classical SISO dynamic problem can additionally be interpreted as a bound on what 
performance specifications one can designate. Specification of additional system 
modification such as modal decoupling for example is not possible. 

Design of acceptable feedback compensations for linear time invariant multi 
input multi output (MIMO) systems are primarily treated by state space solution 
techniques of modern control. As modern control theory can also treat non-linear and 
time varying dynamic systems, this time domain approach has proved successful both 
computationally and analytically. The linear quadratic gaussian ( LOG) problem is a 
prime example of a successful time domain solution approach [Refs. 4,5,6]. Frequency- 
response methods, along with such eigenvalue design approaches as characteristic loci 
and dyadic expansions and non - eigenvalue methods as the inverse Nyquist array- 
technique have also been noted in the literature [Ref. 7|. More importantly, the 



underlying theme in all these design methodologies is that the resulting set of feedback 
gains, F, which satisfy a singular design criteria such as eigenvalue placement, 
maximizing a multivariable robustness measure [Ref. S] or minimizing a particular 
quadratic cost function [Ref. 9] for example, is not unique. This non uniqueness of 
solution ideally allows the multivariable controller design problem to be formulated for 
solution by numerical optimization techniques. 

Exploiting the specification of the eigenvectors of a MIMO closed loop system 
via numerical optimization techniques is the prime motivation of this research. Results 
include the following. 

a. An interactive algorithm for eigenstructure svnthesis and analysis of MIMO 
systems. 

b. An analysis of both left and right eigenspaces as geometric interpretations of 
algebraic restrictions on closed loop eigenvector specification published 
previously, and 

c. A new application of eigenstructure assignment to reconfiguring digital flight 
controllers for a class of damaged (light control systems. 

Subsequent to a discussion of previous reported research in eigenstructure 
assignment, a new matrix treatment of eigenstructure theory is presented. This is 
followed by a description of the numerical optimization techniques used for designing 
particular multivariable controllers. Applications of these numerical techniques to 
design of various robust decoupling controllers are then shown. The latter part will 
present the theoretical framework of a new application of eigenstructure assignment to 
the synthesis of reconfigured digital flight controllers. The thesis will then conclude 
with reconfigured solutions for specific classes of damage to the F-1S tactical aircraft. 
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II. BACKGROUND 



The following state variable equations define the linear time invariant system 
used throughout this thesis for the continuous time domain. The state, output, and 
control equations are. 



x = Ax - Bu -r G,6 
y = Cx -r Du 
u = Fy 4- G,5 

where each vector is defined as elements of the following vector spaces, 



(eqn 2.1) 
(eqn 2.2) 
(eqn 2.3) 



x e 


(eqn 2.4) 


y e 'M l 


(eqn 2.5) 


u e 


(eqn 2.6) 



6e^ c (eqn 2.7) 

The individual system matrices are defined as follows, 

A = n x n plant matrix 

B = n x m control matrix 

G. = n x c feed forward command state matrix 

C = / x n output matrix 

D = / x m feed forward output matrix 



F = m x / feedback gain matrix 

G 2 = m x c feed forward command input matrix 

The flexibility afforded by eigenstructure assignment to design of linear time 
invariant MIMO state feedback controllers has been well documented since the mid 
19T)'s. Moore [Ref. 10] defined this flexibility of design beyond specification of closed 
loop eigenvalues in terms oi' allowable sets of closed loop eigenvectors for systems with 
distinct eigenvalues. In addition, he demonstrated that for those eigenvalues which 
were invariant under state feedback ( uncontrollable ), design freedom of eigenvector 
specification still existed without rigorous constraints. During the same research 
period. Srinathkumar [Ref. 1 1] showed that for controllable systems with n states and m 
inputs . n closed loop eigenvalues and 'in x n' elements of the corresponding eigenvector 
matrix may be arbitrarily specified. A key additional constraint is that no more then 
'm' elements of each individual eigenvector may be specified simultaneously. Klein and 
Moore [Ref. 12] extended the results of Moore [Ref. 10] to include systems with a given 
set of non-distinct eigenvalues. The algorithm presented by these researchers enables a 
designer to invoke an allowable closed loop Jordan eigenstructure via state feedback. 

For MIMO systems employing output feedback. Srinathkumar [Ref. 13] presented 
an eigenstructure design theorem that has become a foundation for many researchers 
engaged in analysis of such MIMO systems. Restated here. 

for systems with ' m' inputs and 'l' outputs . max (/ n.I) closed loop eigenvalues 
can be specified and max (/n.I) eigenvectors or reciprocal vectors by duality 
can be partially assigned with min (m.l) elements of each eigenvector specified. 

As the analytical treatment of eigenstructure assignment became familiar, 
subsequent workers began to explore applications to some existing design problems. 
Two examples are noted. Sebakhy and Abdel - Moneium [Ref. 14] presented an 
algorithm for computing state feedback gains which invoked minimum time responses 
(deadbeat controllers) for multivariable linear discrete time systems which 
simultaneously allowed the designer flexibility in selecting the closed loop eigenvectors. 
Klein [Ref. 15] provided guidelines for constructing state feedback decoupling 
controllers which are robust to small perturbations by means of an eigenvector 
approach. Noteworthy in this work is the use of geometrical interpretations [Ref. 16] 
to analysis of the allowable closed loop design space as functions of open loop 
parameters. 
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' Andry, Shapiro and Chung [Ref. 17] extended the analytical work in 
eigenstructure assignment by investigating the constrained output feedback case. By 
assigning fixed zeroes to specified feedback gain elements, they noted that engineering 
flexibility is gained by the designer in terms of being able to compute a spectrum of 
satisfactory' controllers. This enables one to compare the entire range of controllers 
( full state feedback through constrained output feedback) with respect to performance, 
cost, and reliability. 

Magni and Herail [Ref. IS] presented methods which invoke disturbance 
decoupling via output feedback. These researchers used the design freedom of 
eigenvector specification to minimize the norm of the transfer matrix between the 
particular disturbance and the controlled state variables. This in effect attenuated the 
particular disturbance in the resulting system response. They applied these results to 
an aircraft gust alleviation (1 - cosine) problem with some success. 

Eastman and Bossi [Ref. 19] generalized the linear quadratic gaussian eigenvalue 
placement technique of Solheim [Ref. 20] to include specification of the allowable 
closed loop eigenvectors. An iterative algorithm, eigenvector specification was 
accomplished by manipulating the geometric structure of the Ricatti matrix at each 
iterative stage. 

Numerical methods for computing robust state feedback gains as explicit 
functions of the closed loop eigenstructure were presented by Kautsky, Nichols, and 
Van Dooren [Ref 21]. Noteworthy in this work is the exploitation of an established 
matrix factorization, the singular value decomposition ( SVD ) [Ref 22]. Through the 
use of SVD these authors arrived at an expression for full state feedback gains as an 
explicit function of the closed loop eigenstructure. In this thesis, an extension of their 
analysis to the output feedback case involving the closed loop left (or dual) 
eigenvectors will be presented. 

Of the several analytical works which focus on eigenstructure assignment for 
linear dynamic systems, mention should be made of the paper by Sobel and Shapiro 
[Refs. 23.24], A two part work. Part I [Ref. 23] presents eigenstructure assignment 
theory in a tutorial fashion. Part II [Ref. 24] presents informative applications to flight 
control design via output and constrained output feedback controllers which were to 
meet specified modal structures. 

Several recent authors have continued the research of applying eigenstructure 
assignment theory to linear state feedback design. Miclke, Carraway. and Marefat 
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[Ref. 25] presented an. interactive design algorithm using the classic results of 
Srinathkumar [Ref 13] and [Ref 10] while Liebst and Garrad [Ref 26] applied the 
work of Andry. et. al. [Ref. 17] to aircraft flutter control and gust alleviation problems. 
White and Speyer [Ref. 27] presented innovative results of the application of 
eigenstructure assignment to failure detection filters, a type of observer. 

Recent analytical research in eigenstructure theory has centered on subspace 
characterizations of the allowable sets of closed loop eigenvectors. Fletcher. Kautsky. 
Kolka. and Nichols [Ref. 2S] arrived at explicit expressions of feedback gains as 
functions of right and left eigenstructures. This paper provided the initial motivation 
to examine the increased eigenvector constraints imposed by output feedback in terms 
of the dual constraints on the allowable left eigenvectors. Sogaard-Anderson. 
Trostmann. and Conrad [Ref. 29] characterized the sets of allowable right and left 
eigenvector sets in terms of residual subspaces defined by the matrix residuals 
associated with the desired closed loop eigenvalues. This work however, did not 
explicitly examine the left eigenvector sets as members of a particular subspace. This 
thesis will examine such a membership. 

In this thesis, research objectives were accomplished in two phases. The initial 
phase concentrated on the coding of an interactive eigenstructure design algorithm 
( EIGENS) for linear dynamic systems with no restrictions as to state or output 
feedback [Ref 30]. Applications of the algorithm to design of robust decoupling 
controllers were successfully performed on the CH-47 helicopter. Further application 
to design, of a decoupling output controller for the L-1011 transport was also 
accomplished through execution of the EIGENS algorithm. The latter phase of the 
research entailed developing geometrical interpretations of the restrictions of choosing 
allowable right and left eigenvectors, innovating a new application of eigenstructure 
assignment to reconfiguring digital fight controllers , and an application of this new 
concept to the F/A-1S tactical aircraft. Let us now turn to developing the necessary 
eigenstructure theory for linear dynamic systems for use throughout the thesis. 
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III. EIGENSTRUCTURE THEORY FOR LINEAR TIME INVARIANT 

SYSTEMS 



A. PRELIMINARIES 

1. The Singular Value Decomposition 

Matrix and vector notation used throughout this thesis is noted in 
APPENDIX A. The matrix singular value decomposition and the matrix pseudo - 
inverse are reviewed below. 

Consider a matrix B, where B eM nxm . The singular value decomposition 
(SVD) of B is defined as [Ref. 22], 

B = U b L b V b T (eqn 3.1) 

where L’ b and \’ b ^ are orthogonal matrices of order n and m respectively. The matrix 
— b is a diagonal matrix of the singular values of the matrix B. 

-b = diag(<T 1 ,<r 2 <T p ) (eqn 3.2) 



where p is min(n.m). 

Additionally, the singular values. <7., are commonly defined in terms of the 
T 

spectrum of BB such that. 

ffj(B) = V>-i(BB T ) (eqn 3.3) 

In the arguments which arise in this thesis, the following block form of 
equation 3.1 will be used extensively for full rank matrices where n ^ m. 



4 > 



B = ! U bo U b.) 

where denotes a null matrix and Z b is defined by 

7 = ^ V ^ 

A b b v b 



(eqn 3.4) 



(eqn 3.5) 
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Since it is assumed that B is of full rank, note that l b is now a square mxm 
matrix where the null blocks of equation 3.2 have been disregarded. In all the 
following discussions, 22 b will be assumed to be square. The linear space dimensions of 
the block matrices are shown below. 


U bo 6 X™* 


(eqn 3.6) 


U bI s .^nx(n-m) 


(eqn 3.") 


Z b e 


(eqn 3.S) 


0) e .^(n-m)xm 


(eqn 3.9) 



Note that for non - singular square matrices, L' bI does not exist and equation 
3.4 reduces to 



B = U 



b Z b = U bo Z b 



(eqn 3. 10) 



Useful identities associated with the matrix singular value decomposition are 
noted below. 



Tl >... < 7 r >(7r + 1 = ••■ = 0 (eqn 3.11) 

where r = rank(B). 

<*l(B) S <W B > (eqn 3.12) 

<* r (B) - <W B ) (eqn 3.13) 

||B|| 2 = cr^B) (eqn 3.14) 
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For square matrices, where B € . 3 % nxn , the two norm condition number of the 
matrix B. k,(B). is defined as. 

k,(B)= crj(B) <? n (3) (eqn 3.15) 

2. The Matrix Pseudo Inverse 

The matrix pseudo inverse, often referred to as the generalized inverse, is 
defined in the least squares sense in the following way. For the matrix B e c*? nxm . the 
pseudo inverse. B - . is the unique Frobenius-norm solution to. 



min || BB^ - I Q || p (eqn 3.16) 

Additionally. B~ satisfies the classic Moore - Penrose conditions. 

BB _ B = B (eqn 3.1") 



B"BB~ = B~ 


(eqn 3.18) 


(BB~) T = B - B 


(eqn 3.19) 


(B~B) 7 = B“B 


(eqn 3.20) 



In this thesis, the singular value decomposition will be used to define the 
matrix pseudo inverse in the following way [Ref. 31]. 

B ' = V bV lu bo T (eqn 3.21) 

where. 

B~ e £% nixn (eqn 3.22) 
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It can be shown that equation 3.22 satisfies the Moore ■ 
Proof of equality for equation 3.17 is shown below. Substituting 
equation 3.21 into equation 3.17 yields, 

BB - B - (U b 0 = b V b T )( v b : b - 1 U b0 T )( t' b 0 I b v b T ) 

Since. 



and, 



^bo ^bo 



then equation 3.23 reduces to. 



BB + B = LM M3, (I )Z' l \ I, V. T 

bo b v m / b in b b 



or, 



BB 



n _ i • v r -1 r v T 

b L bo-b“b -b x b 



Further, since 



V v - 1 

“b“b 



= I 



m 



then one has the final result, 

+ B - U b0 I b V b T - B 



Penrose conditions, 
the expression from 

(eqn 3.23) 



(eqn 3.24) 



(eqn 3.25) 



(eqn 3.26) 



(eqn 3.27) 



(eqn 3.2S) 



(eqn 3.29) 
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B. THE GENERALIZED FEEDBACK EXPRESSION FOR LINEAR TIME 

INVARIANT SYSTEMS 

Kautsky. Nichols, and Van Dooren [Ref. 21] published the development of an 
expression for state feedback gains as an explicit function of a desired closed loop 
eigenstructure. The following general derivation follows closely that of Kautsky et.al. 
by expanding their results to include the output feedback case. Generalized in this 
thesis is interpreted to include output feedback with the existence of feed forward loops 
in the system. Full state feedback or output feedback without feed forward then 
become specific cases of the final expression. 

Consider the linear Ml MO system comprised of// states, m inputs , and l outputs 
with output feedback. 



x = Ax + Bu 



(eqn 3.30) 



y = Cx + Du (eqn 3.31) 

u = Fy (eqn 3.32) 

The classical eigenvalue placement problem written in vector form arises from 
combining equations 3.30, 3.31, and 3.32 in the following fashion. Combining 
equations 3.31 and 3.32 yields. 

u = FCx + FDu (eqn 3.33) 



and rearranging yields, 



(I m -FD)u=FCx (eqn 3.34) 

Assuming (I - FD) is not singular one pre multiplies equation 3.34 by (I m - 
FD)'* yielding, 



u = (I - FD) _1 FCx 

v m 7 



(eqn 3.35) 
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Substituting equation 3.35 into equation 3.30. one has 

x = Ax + B((I m - FD)' 1 FC}x (eqn 3.36) 

Upon application of an appropriate similarity transformation, equation 3.36 may 
be written in terms of the closed loop system eigenvectors, x* , and eigenvalues. Xj 



[Ref. 2], as follows, 




Vi = A^ + Bl(I m - FD^FC} x. 
In matrix form, equation 3.37 becomes. 


(eqn 3.37) 


XAX' 1 = A + B(I m - FD)' 1 FC 


(eqn 3.3S) 



where A is the diagonal matrix of closed loop eigenvalues and it is implicitly assumed 
that the eigenvector matrix. A’, is composed of linearly independent columns. 
Subtracting A from both sides of equation 3.3S yields. 

B(l m - FD)' 1 FC = XAX' 1 - A (eqn 3.39) 

Now by exploiting the singular value decompositions of B and C where, 



B ' u boVb T " L bo Z b 

and, 


(eqn 3.40) 


C=UIV T =U Z 

C C C CO c 

equation 3.39 becomes, 


(eqn 3.41) 



U bo Z b('m • FD >'' FU co Z c = XAX '‘ ' A <«!» 3 - 4 -> 

Appropriate pre and post matrix multiplication of equation 3.42 yields, 

(I m ■ FD)'* F - Z b -'u bo T (XAX' 1 - A)Z c ''U co t (eqn 3.43) 
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and an additional pre matrix multiplication of equation 3.43 by by (I - FD) results in. 



F - <I m - FD)Z b - | U bo T (XA X-l ■ A)Z;>C co T (eqn 3.44) 

Let us now define the eigenstructure matrix L, as, 

L = (XAX' 1 - A) (eqn 3.45) 

Rearranging equation 3.44 with the substitution of equation 3.45 yields. 

F + FD(Z b -'l b0 LZ c - 1 U c0 T > = Z b -'u b0 T LZ c -'u c0 T (eqn 3.4(5) 

Now define Q as , 

Q = Z b' lu bo TLZ c‘ lL 'co T ( ec l n 3 J7 ) 

Then equation 3.46 becomes, 

F(I m + DQ) = Q (eqn 3.4S) 



and appropriate post matrix multiplication of 3.4S yields the following general 
expression for the least square output feedback gain matrix, F, as a function of a 
desired closed loop eigenstructure. XAX' 1 . 

F = Q(I m + DQ)* 1 (eqn 3.49) 

Note that the right hand side of equation 3.49 is a function of the pseudo 
inverses of B and C expressed in equation 3.47 . The feedback gain matrix, F, 
therefore is computed based on these least square solutions. As such. F will invoke the 
desired closed loop eigenstructure A’ and A. in the least square sense. For systems 
where the number of states, inputs, and outputs are identical, then the solution 
becomes exact. As the number of inputs and outputs vary, then the solution becomes 
inexact by the nature of the pseudo inverse. This is a numerical interpretation of the 
classic restrictions on the desired eigenstructure presented by Srinathkumar [Ref. 11]. 
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A proof of this result using' the matrix equations presented in this thesis is shown in 
Appendix B. Equation 3.49 is therefore more correctly termed the least square solution 
for the feedback gains, F. It is this solution which was used for the results presented in 
this thesis. 

Up to this point, no restrictions have been placed on the desired right eigenvector 
matrix. A\ other than the right eigenvectors must form a linearly independent set. 
Additional restrictions on the right eigenvectors are shown in the following 
development. Rewriting equation 3.39 in block form yields. 

[v* L'blJZbl (I m • FD) -‘FC - XAX- 1 • A (eqn 3.50) 

T 

Pre multiplying both sides of 3.50 by. (U’ bo L' bl } one has. 



" z b" 


(I m - FD)* 1 FC = 


Ao T - 


(XA X' 1 - A) 


(eqn 3.51) 


_<!>_ 




- u b i T - 







Upon multiplying equation 3.51 by -1, one has the following relationship 
resulting from the lower block, 

4> = U bl T (A - XAX' 1 ) (eqn 3.52) 

Equation 3.52 is the matrix relationship [Ref. 21] from which the subspace constraint 
on each right eigenvector may be obtained. This subspace constraint is repeated 
below. 



XjgNJU^A-^)} (eqn 3.53) 

where N denotes null space. Equation 3.53 is the only subspace restriction on the 
desired linearly independent right eigenvectors for the full state feedback case. 

The dimension, d{ ), of this particular subspace hereafter referred to as the right 
eigenspace, can be defined in the following way. Denoting Ker P as the kernel or null 
space and Im P as the image or range space of a mapping operator P; one has the 
identity [Ref. 16] 



d(X) = d(Ker P) + d(Im P) 



(eqn 3.54) 



where Im P — PX. In this case. X is the n - dimensional state space spanned by the 
linearly independent right eigenvectors. Solving equation 3.54 for d(Ker P), one has. 

d(Ker P) = n - d(Im P) (eqn 3.55) 

Since d(Im P) is also defined as the rank of P. one may rewrite equation 3.55 as. 

d(Ker P) = n - rank(P) (eqn 3.56) 

Substituting the right eigenspace operator for P now results in a definition for the 
dimension of the right eigenspace. 

d(Ker(U bl T (A - >ql n )}) = n - rank{L‘ bl T (A - Xjl n )} (eqn 3.56) 

and since. 

rank{U b jT(A - X ; I n )} = n - m (eqn 3.58) 

for full rank control (rank(B) = m) matrices, one has the following result, 

d(N{U bl T (A - U n ))) = m (eqn 3.59) 

where Ker has been replaced with the original notation for the null space operator. N. 
Therefore, the allowable right eigenvector x.. must be a member of an m 

~ - i 

dimensional null subspace defined by equation 3.53 . Note further that for a rank 
degenerate control matrix, B, the subspace likewise becomes dimensionally degenerate. 

It will now be shown that in the presence of output feedback, an additional 
restriction of the left eigenvectors results from a similar analysis. In order to show this 
additional restriction, let us initially assume the feed forward matrix, D to be identically 
null which is the case of output feedback without the addition of transmission or 
blocking zeroes. There is no loss of generality with this assumption. In this case, 
equation 3.48 reduces to. 



F - Q - z. 



l U b . T LZ -1 U T 



(eqn 3.60) 
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and substituting the expression for L yields, 



F = 




(eqn 3.61) 



with the constraint that each right eigenvector is a member of a specific null space as 
expressed by equation 3.53 . 

Pausing briefly, note that if one assumed all the states were available for 
feedback, where the output matrix, C. becomes I n . equation 3.61 reduces to the 
expression shown previously [Ref. 21], 



Comparing equations 3.62. 3.61. and 3.4S, one notes the increased cost in 
computing F when proceeding from full state feedback to output feedback with feed 
forward control. 

Let us now return to analyzing the impact of output feedback on the left 
eigenvectors by transposing equation 3.3S with D identically null. 



F = 



Z b' lL 'bo T < Xi v‘ . A) 



(eqn 3.62) 




(eqn 3.63) 



T 

Factorization of C via singular value decomposition yields. 




(eqn 3.64) 



L O J 

T 

Pre matrix multiplication of equation 3.63 by {L : cl0 L' ct j} yields, 




(eqn 3.65) 



O 




and from the lower block of equation 3.65, 



0)(F T B T ) = <P = U ct , T (A T - X* T A T X T ) 



(eqn 3.66) 
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Now using the following definition [Ref. 22] of the left eigenvector matrix. T. 



T = X' T 

equation 3.66 becomes, 


(eqn 3.67) 


0> = U ctl T (A T - TA^T’ 1 ) 
and since. 


(eqn 3.68) 


A = A T 

the final matrix expression for equation equation 3.66 becomes, 


(eqn 3.69) 


0> = U al T (A T - TAT' 1 ) 
Post multiplying equation 3.70 by T yields, 


(eqn 3.70) 


0>T = U ctl T (A T T - TA) 

and in vector form, 


(eqn 3.71) 


(0) = L- ctl W- v 0 ) tj 


(eqn 3.72) 



and hence for the output feedback case, the ith left eigenvector must be a member of 
the following null space, 

tj 6 N[U ctl T (A T - X jl n )} (eqn 3.73) 

It can be similarly shown that the dimension of this space, defined as the left 
eigenspace , is, 



d(N(U ctl T {A T - X;})} = / 


(eqn 3.74) 


when the output matrix C is full rank. 
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To summarize for the output feedback case without feed forward control, the 
feedback gain matrix. F, is explicitly defined by equation 3.61 with equations 3.53 and 
3.73 placing constraints on the right and left eigenvectors respectively. Additionally 
note that for the full state feedback case where C = I n , there is no restriction on the 
left eigenvector, n since L' ct j does not exist and any left vector would satisfy equation 
3.71 . Similarly note that for the full state feedback case where rank(B) is n. or for the 
system with n inputs , there is also no subspace constraint on the right eigenvector. 
Therefore for the full state feedback case where m = //, one can choose any n linearly 
independent set of closed loop right eigenvectors for the desired closed loop modal 
structure. 

One now has at their disposal, constrained explicit expressions for calculating 
static feedback gains which invoke a desired closed loop eigenstructure in the least 
square sense. Table 1 summarizes the expressions for the feedback gains along with 
appropriate eigenvector constraints for each feedback scheme. 



TABLE 1 

FEEDBACK EXPRESSIONS AND EIGENVECTOR CONSTRAINTS 



Full State Feedback 

F sf - V L bo T < XAX ‘‘- A > 
Si EN{U bl T (A. >.;!„)} 



Output Feedback without Feedforward Control Loop 



F of " Z b' lu bo T < XAX ' 1 - A > Z c' 1 Vco T 
xjeNiUbAA-Xil,,)) 
t i €N!U ctl T (A T -X,I n )} 



Output Feedback with Feedforward Control Loop 



F o!T - F oi<'m A DF of)’ 
x i e N(V b | T (A . Xjl n )} 

t i eN ! U ct 1 T (A T -yi n » 



2S 



As a preface to the ensuing discussion, let us examine the numerical and linear 
space definitions of the term null space. Null space membership, as previously defined 
by equation 3.52 for example, will not be exactly satisfied due to finite precision 
arithmetic and system modelling uncertainty. Defining a null vector as c and a null 
matrix as E. where 



allows one to more clearly define numerical null space membership. Therefore, let us 
account for computational precision by defining the right and left null vectors, s n and 
Cp as follows. 



Mb < < i 



(eqn 3.75) 



<7j(E) < < 1 



(eqn 3.76) 




(eqn 3.77) 




(eqn 3.7S) 



Further, assume these vectors span respective right and left null spaces, 




(eqn 3.79) 



E / “ b/l Z 12 - c /ib 



(eqn 3. SO) 



where, 




(eqn 3.S1) 




(eqn 3.S2) 
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Finally note that for full rank B and C~^ matrices, the dimensions of the right and 
left null spaces are therefore, 

d(E r ) = n - m = p (eqn 3. S3) 



d(E^) = n - l = q (eqn 3. 84) 

These dimensional definitions are used in the following discussion to more clearly 
define the algebraic constraints on the allowable eigenstructurc. Let us now continue 
with such a discussion. 

C. RIGHT AND LEFT EIGENSPACE: A GEOMETRIC INTERPRETATION 

The algebraic subspace constraints noted previously can be difficult to envision 
for large order systems. In addition, the added restrictions on the allowable right 
and; or left eigenvectors as one progresses from the full state feedback - full rank 
control matrix system to a constrained output feedback - rank degenerate control or 
output case has intuitive geometrical properties. It is the geometrical implications 
imposed by the algebraic constraints which motivate, in part, the following geometrical 
analysis. 

The lattice diagram [Ref. 16] has proved to be a useful device to depict 
geometrical relationships between linear vector spaces. The following geometrical 
relationships are implied by Figure 3.1. 

E r P c c X n (eqn 3.85) 



d(E r P) < d{:3Z m ) < d(X n ) (eqn 3.86) 

where the symbol c denotes subspace. Equation 3.86 states formally that the 
dimension of is less than the dimension of X n and the dimension of E f P is less 
than that of .3# m . 
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Let us now assume, that X n represents the state space of a controllable linear 
time invariant system such that, 

X n = + M m ( eqn 3.87) 

As there are non-unique state variable representations for a linear time invariant 
system, there may be several linearly independent eigenvector sets which are able to 
span the state space. However if a vector is chosen from each of the m-dimensional 
spaces to form spanning sets, one has selected particular eigenvectors which are 
associated with particular eigenvalues. It is this selection process which will be invoked 
by the feedback gain equations of Table I. 

Assume further that for each subspace. there exists a mapping operator, 

N r j, which maps a vector from into c r -P, a numerical null vector. 

c ri P = N ri x i ( ec l n 3 ' SS) 

Further assume that any p of these null vectors span a right null space. E f P, 
where, 



r~ P — To P 

L r l °rl °r2 



' P| 

J rn > 



(eqn 3.S9) 



where equation 3.S9 has included all n right null vectors. 

The subsequent lattice diagram, denoted as the Right State Space Lattice is 
shown in Figure 3.2. 

Clearly, X' ■ can be taken to be the right null space operator defined previously 
as. 



N ri = U bl T ( A -Vn) (eqn 3.90) 

and Figure 3.2 geometrically depicts the right eigenspace constraints posed by state 
feedback. The dual or left state space lattice is similarly constructed and is shown in 
Figure 3.3. 

The final tool in constructing the total lattice diagram is to geometrically link the 
relationship between Figures 3.2 and 3.3. Let us define an operator P, such that. 
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P = X^X' 1 (eqn 3.91) 

Therefore, P maps the right eigenvector matrix, X, into the left eigenvector 
matrix, 7, as follows. 



T = PX = X‘ T X' l X (eqn 3.92) 

and one may now map the allowable n right eigenvectors into their dual left 
eigenvector space. 

Likewise, we desire to develop an operator which will map the right null vectors 
represented by equation 3.S9 into their dual left null space vectors represented by E^. 
For each ith null vector, one would then have, 

JjEri = £ ;i (eqn 3.93) 

In terms of the ith right and left eigenvector, equation 3.93 becomes. 

J iN ri Xi = N ri tj (eqn 3.94) 

Let us now define a vector S; as the ith column of the I n identity matrix. One 
may therefore write an expression for tj as follows, 

t; = Tsj (eqn 3.95) 

Substituting the expression for T from equation 3.92 yields. 

tj = PXs' = Pxj (eqn 3.96) 

and therefore equation 3.94 becomes, 

JjNrjXj = N^PXj (eqn 3.97) 



Solving for J- yields, 

J i - «V*iX>V i> + 



(eqn 3.9S) 



In order to verify that equation 3.9S is correct, one must show that Jj indeed 
maps £ r ; into £/. 

Performing the mapping yields. 

(N /i Px i )(N ri x i )’ r (N ri x i ) (eqn 3.99) 

Noting that { Ns r jX- ) (N^xj) is equal to scalar unity (1.0). then the mapping of 
equation 3.99 yields. 



N/jPxjCl) = z fl (eqn 3.100) 

and Jj maps £ fl into c^. In this way. one may map the 'n' £ f j null vectors into the 
respective 'n' left null vectors. C^. One may now depict the total space lattice diagram 
shown in Figure 3.4.. 

The geometrical constraints on the allowable right and left eigenvectors shown in 
Figure 3.4 can be characterized as follows. The dimensions of the right and left null 
spaces. E r and Ej are directly related to the rank of the null space operators N’ r and 
N j. For example, as the rank of N’ r decreases, the dimension of E r decreases. Since 
the right eigenvector Xj must be mapped into £, by N f j. the mapping becomes more 
geometrically restrictive. In this way. an increasing geometric constraint is placed on 
the right eigenvector xj. The dual is true for the left eigenvector tj. One may state the 
geometrical constraints in the following way. 

Lemma 3.1: The expressions of Table I explicitly define static feedback 
gains which will invoke a closed loop right eigenstructure, XAX'*, iff the 
right eigenvectors, Xj. which reside in map into the right null space E r 
via the respective null space operator N f -. The dual vectors, t- must 
likewise reside in and map into E^ via NT. 

The concept of right and left null spaces comes about when one numerically 
converges on an allowable eigenvector by allowing the vector to rotate until the 
respective null vector. £, becomes small. In this way one numerically converges on 
eigenvectors which are members of or Sftf by minimizing a norm of £ f or £^. This 
solution technique was used in this thesis and provided the prime motivation for these 
geometrical discussions. Figure 3.4 has set the stage for geometrical analysis of all the 



feedback cases to be presented. Let us begin with the state feedback case as it is the 
least restrictive with respect to allowable eigenstructure. 

Case I: Full State Feedback (in = n) 

In this case the diagram reduces to a single node for each eigenspace. There are 
no restrictions on the desired vectors other than linear independence and the feedback 
gains which will invoke such a closed loop structure are computed via equation 3.62 . 

Case II: Full State Feedback (in < n) 

For this case, one has an initial restriction on the right eigenvectors but none on the 
left. Therefore the total lattice diagram consists of Figure 3.5 with subspace inclusions 
for the right eigenspace. Note the dimension of E f P defined previously by equation 
3. S3 . By comparing Figures 3.5 and 3.6. one notes the first level of restriction with 
regard to the allowable closed loop eigenstructure. 

Case III: Output Feedback (m = n, l — n) 

Case III is geometrically identical to Case I. The only restrictions are that the 
desired closed loop right and left eigenvectors form a bi-orthogonal set. Figure 3.5 
depicts the appropriate geometry. 

Case IV: Output Feedback (m = n, l < n) 

For this case, the restrictions lie only with the left eigenvectors. The lattice 
diagram is the dual of Figure 3.6 and is is shown in Figure 3.7. 

This concludes the decoupled constraint cases and exemplifies the ease of 
solution for the gain matrix which will invoke desired closed loop eigenstructures. The 
coupled cases arise for systems employing output feedback where both the number of 
inputs and observations are less than the order of the state space. 

Case V: Output Feedback (in < n. I < n, in = l) 

The lattice diagram for this case is constructed by linking Figures 3.6 and 3.7 
with the mapping operator P and is depicted in Figure 3.8. Note from equations 3.83 
and 3.S4 that. 



d(E r ) = d(E^) (eqn 3.101) 

and therefore, the null spaces are equidimensional. 

Case VI: Output Feedback (in < n, l < n, in < f) 

The lattice diagram of Figure 3.S remains for the remaining cases. The subtle 
distinction between Cases V and Case VI however, is that the dimensions of the left 
and right null space are not identical. For this case, 
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d(E r ) > d(E/) (eqn 3.102) 

which implies geometrically that the right eigenspace constraint is more easily satisfied 
due to the higher dimension of the right null space. 

Case VII : Output Feedback ( m < n, l < n. I < m) 

Case VII is the dual of Case VI. since 

d(E^) > d(E r ) (eqn 3.103) 

Equation 3.103 implies that the left eigenspace constraints are more easily satisfied 
than those of the right eigenspace due to the higher dimension of the left null space. 
This of course is the dual of Case VI in that the major computational expense will 
involve converging on allowable right eigenvector sets. Cases VI and VII are clearly 
computationally more difficult to solve than the previous cases. The quantitative 
interplay between the right and left eigenvector sets as functions of the open loop 
parameters remains to be clearly formulated. The attempt here was to show the 
qualitative interdependency by analyzing what was found to be true during the course 
of the research. It will be shown later in this thesis using two specific examples of 
Case VI. that the qualitative interpretations noted above are correct. 

This concludes the theoretical treatment of eigenstructure assignment as 
presented in this thesis. Prior to discussing some applications of the theory, let us 
reexamine equations 3.77 and 3.7S As noted previously, null space membership of the 
desired closed loop eigenvectors has been the central theme in much of the recent 
discussion. One must, therefore, numerically devise a scheme which guarantees such 
membership. In that the term null space implies convergence to a zero measure, a 
candidate for such a scheme would clearly involve a minimization. Minimizing a norm 
of the right null vector c r - or left null vector for example, would guarantee such 
convergence. The mechanics of such a minimization is the topic of the final chapter 
prior to presenting results of applying eigenstructure assignment to some existing 
control problems. 
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Figure 3.1 Basic Lattice Diagram. 
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Figure 3.2 Right Stare Space Lattice Diagram. 







.3 Left State Space Lattice Diagram. 
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Figure 3.4 Totai Space Lattice Diaeran.. 
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Case I: Full State Feedback (m = n) Lattice Diagram. 
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Figure 3.6 Case II: Full State Feedback (m < n) Lattice Diagram. 
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Figure 3.7 Case IV: Output Feedback (m = n. 1 < n) Lattice Diagram. 



42 




Figure 3.8 Case V: Output Feedback (m < n,l < n.m = 1) Lattice Diagram. 
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IV. NUMERICAL OPTIMIZATION 



A. THE AUTOMATIC DESIGN SYNTHESIS (ADS) PROGRAM 

The use of numerical optimization techniques as an engineering design tool has 
matured with the advent of higher speed digital computers. In tandem with this 
growth has come the development of algorithms and design strategies [Ref. 32) 
available for a wide variety of particular design tasks. Several numerical optimization 
techniques and strategies are resident [Ref. 33] in compiled Fortran code for use at the 
Naval Postgraduate School. In effect, the Automatic Design Synthesis code can be 
used as a black box optimizer for a wide spectrum of disciplines. It' is not the purpose 
here to discuss in detail all the numerical algorithms available through the ADS code, 
but only to describe the general design philosophy of the optimizer and to overview the 
particular strategies employed during the course of the thesis research. 

A general purpose code, ADS contains algorithms which are able to solve the 
following general n-variable constrained minimization problem. 

Minimize: F(X) 

Subject to: 

gj(X) ^0,j = l.m inequality constraints 
hj-(X) = 0,k = 1,1 equality constraints 

Xj* ^Xj U , i = l,n side constraints 

T 

uhere X = {Xj x-> ... x n } is a design variable vector. 

Convergence to a minimum value of the function F(X) without violation of the 
constraint criterion in accomplished via the following iterative scheme, 

X c l + 1 = X C 1 + a q *S c l + 1 (eqn 4.1) 

where, 

q = iteration number 
S^ = search direction vector 

= scalar weight applied to the search direction 
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The user is afforded flexibility of further tailoring the optimization scheme by 
being able to designate any of the following three components of the ADS 
optimization algorithm: 

a. Optimization strategies such as Sequential Unconstrained Minimization 
Techniques (SLMT) or Augmented Lagrange Multiplier Methods which allow 
the user to reformulate the objective function. F(X). 

b. Search Direction computation methods such as conjugate and variable metric 
first order methods which compute S 4 and. 

c. One dimensional search options such as Golden Section or polynomial 
interpolation methods which determine the magnitude of change in the design 
variable during the minimization. 

As the ADS is designed to fulfill the general needs of a spectrum of engineering 
disciplines, the level of user sophistication beyond correct interpretation of the calling 
arguments is not necessary. However, as is the case of using any library type code, one 
must correctly formulate the objective function and clearly interpret the iterative results 
of the ADS code. Due to the general nature of the objective function, this last 
statement becomes increasingly important when little is known of the order or 
continuity of the function in the region of interest. Two types of constrained 
minimization problems were formulated for use during the research. Problem I was a 
constrained minimization problem with side constraints only and Problem II was a 
constrained minimization with inequality and side constraints. Let us discuss the 
strategies used for each of these two problems. 

Problem I 

A constrained minimization problem with side constraints may be posed as an 
unconstrained minimization problem. By specifying bounds on the design variables 
within a specified region during the course of an unconstrained minimization, one 
implicitly invokes the side constraints. The most efficient search direction method for 
Problem I was found to be the Broyden-Fletcher-Shanno-Goldfarb (BFGS) variable 
metric method. This is a first order method in which the gradient information is 
computed by ADS via finite difference calculations. Often called a quasi-Newton 
method, the BFGS method computes the search direction, S^. as follows, 



S 1 ^ = - HVF(X^) (eqn 4.2) 

where VF(X^) is the ADS computed finite difference gradient at the qth step and II is 
an iteratively computed matrix which orients the search direction. Initially (q= 1) II is 
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the identity matrix and therefore the initial search direction is in the direction of 
steepest descent. H is then updated after each iteration in the following way. 

+ 1 = + D (eqn 4.3) 

where D is a symmetric matrix defined as. 

= (cr + T)pp T c r 2 + (H c K-p T + p(H q y) T }.'<7 (eqn 4.4) 

The vectors p and y are defined by, 

p = x^-x^ 1 
y = VF(X C 1) - VF(X^* 1 ) 

and a and t are scalar vector products formed as follows. 

T = y T y 

The one dimensional search routine used was the Golden Section method. As 
this method is a one-variable algorithm, the single "variable" for our purposes is the 
vector, Xj or t-. The advantages of the method include no requirement for F(X) to 
have continuous derivatives and in addition the Golden Section has a known rate of 
convergence. Among the disadvantages which impacts our purposes is that the Golden 
Section assumes the objective function to be unimodal, or to have one minimum in the 
region of search. If one has an objective function which for example has several local 
minima, several solutions may exist depending on the bounds set on the design 
variables. As will be shown subsequently, the minimization of the null vectors, c f - and 
£y- was performed using the Problem I formulation. 

Problem II 

If one recasts the inequality constraint as a penalty function, P(X). where. 

P(X) = 2>iax(0. gj (X))} 2 f j = U (eqn 4.5) 

then one may also pose Problem II as an unconstrained minimization problem in the 
following way [Ref. 32]. By forming a pseudo-objective function, <I>(X.rp), 
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(eqn 4.6) 



0)(X.r p ) = F(X) + r p P(X) 

and by again bounding the design variables, one now has a Sequential Unconstrained 
Minimization problem (SUMT) with an exterior penalty function, P(X). In equation 
4.6, r p is a scalar weighting applied to the penalty P(X). 

Equation 4.6 is the formulation used in this thesis for such a minimization. The 
search direction used for Problem II was the Fletcher- Reeves (FR) conjugate method. 
Like the BFGS method, the FR is a first-order method which is an improved steepest 
descent algorithm. The search direction. for this method is defined as, 

= - VF(X^) + PqS^' 1 (eqn 4.7) 

where, 

P q = |VF(X c l)j 2 /|VF(X < l- 1 )! 2 (eqn 4.8) 

As in Problem I, the Golden Section method was used for the one-dimensional search 
routine. Problems 1 and II were the ADS minimization strategies used during this 
research. They will subsequently be referred to as such. 

B. THE NUMERICAL OPTIMIZATION PROBLEM 

The fundamental expressions for feedback gains noted in Table 1 involve 
eigenvector constraints written in terms of null space membership. Further, when these 
null space constraints are expressed numerically, they take the form of equations 3.77 
and 3.78 . The numerical objective than becomes one of minimizing some measure of 
the right and or left null vector which satisfies such a numerical null space membership. 
For the right eigenvector, one might write such a numerical objective as an objective 
function expressed in terms of a euclidean distance measure, 

F(X) = ||U bl T (A - \l n )x { \\ 2 = ||c ri || 2 (eqn 4.9) 

where ||c r -||-> is the euclidean distance between the allowable subspace defined by the 
desired closed loop eigenvalue, L , and the desired right eigenvector, x ; . As the system 
is time invariant, the design freedom, or variables, would be all (unconstrained 



47 



minimization) or some (constrained minimization) of the right eigenvector elements 
and not the open loop parameters. 

1. State Feedback Controller Synthesis 

For purposes of illustration, let us assume one is synthesizing a state feedback 

regulator where there are n = four states and in = two inputs. Further, one desires the 

following closed loop eigenvector. Xj. to be associated with the closed loop eigenvalue. 

h. 

1 



Xj = (Xj 0 x 3 0) T (eqn-4.10) 

where x, and x, • are unconstrained and mav take on anv numerical value. The 
1 3 ' 

constrained values, noted by the zeroes in elements two and four, are desired, for 
example, in order to satisfy a decoupling specification. Mathematically, this is a 
constrained minimization problem and may be stated in the following way, 

Minimize: F(Xj) 
where, 

F(Xi) = ||U bl T ( A-Xj^xp || 2 = ||c ri || 2 

Subject to: 
x, = 0 
X4 = o 

For real this is a four variable constrained minimization problem with two 
side constraints. By bounding the design space (x-> = x^ = 0). this becomes a Problem 
1 formulation. In terms of real cost, this particular synthesis problem would entail V 
such Problem I minimizations before a feedback solution is computed. The side 
constraints may also differ from vector to vector. Note further that for systems with 
complex eigenvalues, the computational cost would decrease since one may employ the 
necessary conjugate condition for the associated complex eigenvector. At this point, 
the minimization problem can be executed, the resulting eigenvectors are checked for 
independence, and the feedback controller can be synthesised, A robust decoupling 
controller for the CH-47 helicopter was synthesised by this method. Results will be 
shown in Chapter VI. 
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2. Output Feedback. Controller Synthesis 

Let us now assume we must synthesize an output feedback controller with 
four states, two inputs, and 1—3 outputs. Computational cost is increased by the 
output feedback requirement since in addition to the right eigenvector constrained 
minimization problem, one ol course must also satisfy the left eigenvector constraint. 
One may pose this synthesis problem in a variety of ways. The following scheme was 
successfully formulated during the research reported in this thesis. 

a. Converge on 'n' right eigenvectors by solving 'n' Problem I minimizations. 

b. Compute the following right residual sum. 



RES, = Tile 



^-ii°ri l, 2 



i = 1 .n 



(eqn 4. 1 1) 



c. Compute the corresponding left eigenvectors, tj, by the identity. 



T = X 



-T 



(eqn 4. 12) 



d. Compute the 'n' left null vectors, Zr via equation 3.78 and compute the 
following left residual sum. " 



RES/ = III C/ill 2 ,i = u 



(eqn 4. 13) 



e. Convergence criteria is now tested as the sum of the right and left residual 
sums, 



R(X,T) = V{]| C ri || 2 + II E/jll 2 > ^ P (eqn 4.14) 



Since the right residual sum is satisfied initially, the left residual sum will likely 
be out of tolerance. The design freedom here is to allow the right eigenvectors to vary 
in order to satisfy the left residual. Convergence is then obtained by returning to Step 
B.2.b. subsequent to allowing the right eigenvector elements to change so as to 
minimize the left residual sum. In this way R(X.T) will be at or below a specified 
tolerance p. This method is termed the indirect method since the left eigenvector 
constraints are being satisfied by allowing the corresponding right eigenvectors to 
change their orientation. 
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One may state the output feedback constrained minimization via the indirect 
method as a Problem I formulation as follows. 

Minimize: R(X,T) 
where. 

R(X.T) = IlW r ||e ri || 2 + Wj|| C/i || 2 } 

Subject to: 

lower ij upper 
where. 

X = Right Eigenvector Matrix 
T = Left Eigenvector Matrix 
W W j = Scalar weighting applied to the residual sums 

The indirect method for the output feedback case can become computationally 
inefficient for systems of high order. For example, a tenth order system with complex 
eigenstructure will contain twenty design variables per closed loop eigenvalue and 
require a tenth order complex matrix inversion during each execution of step B.2.c. 
Hence for large order systems, the output feedback synthesis scheme is modified in the 
following way. Steps B.2.a. - B.2.d. remain the same however step B.2.e. becomes a 
left eigenvector minimization problem in the form of Problem I. 

Minimize: G(tj) 
where, 

G(tj) = ||U al T (A T -X i I n )(t i ) || 2 
Subject to: 

tl < {•• < t 

lower ij upper 

Upon convergence to an allowable t-. the right null vectors are then computed 
to check if the right eigenvectors have been oriented out of the allowable right 
eigenspace. After several such iterations, one begins to -adaptively learn the behaviour 
of the system and through interactive computer execution, one will converge on a final 
solution. This technique was successfully performed on an F/A-1S dynamic model. 

Note that an advantage of the indirect method is that one can exercise control 
on the bounds of the design variables through the scalar weightings W and W» and 
therefore exercise some limits on the orientation matching. 
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3. A Robust State Feedback Controller Synthesis 

For multi-variable control systems, the minimum singular value of the return 
difference matrix [Ref. 34] can be used as a robustness criterion. 

tf m O m + FG) > a (eqn 4.15) 

where G = C( s I - A)‘^B. If a = 1 . then the feedback gains. F, in equation 4.15 may 
be considered quasi-optima l since cr m > 1 for optimal state feedback controllers when 
the input weighting matrix is the identity matrix [Ref. 35]. By subtracting a from both 
sides of equation 4.15, one formulates a new objective function K(X), where, 

K(X) = + FG) - a (eqn 4.16) 

Substituting the state feedback expression for F from Table I yields 
K(X) = + Z^U^XAX- 1 - A)G} - a (eqn 4.17) 

Successful minimization of K(X) with the constraints (gj) that each desired 
right eigenvector be a member of the allowable subspace invoked by the desired closed 
loop eigenvalue will result in a robust quasi-optimal state feedback controller. The 
uniqueness of this formulation is that one can numerically synthesize an optimal state 
feedback controller with eigenstructure specification. This technique successfully 
designed a quasi-optimal decoupling controller for the CH-47 and will also be 
presented in Chapter VI. 

4. Feedback Controller Synthesis via Eigenvalue Shifting 

In B.l and B.2 above, the design variables are the eigenvector elements as the 
closed loop eigenvalue remains fixed. One may recast the objective function by 
allowing the eigenvalue, X-, to assume the role as the design variable while maintaining 
the eigenvector elements fixed. In this way. the feedback synthesis via eigenvalue 
shifting takes the form of the following minimization problem. 



Minimize H(X-) 
where, 
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m\) = iiu bl T {A-x i i n Kx i )ii 2 

Subject to: 

real lower bound ^ Real(Xj) ^ real upper bound 
imag lower bound ^ Imag(Xj) ^ imag upper bound 

This is of course a Problem 1 minimization with only two design variables per 
each of the 'n' iterations. An advantage of this method is clearly one of computational 
cost. A disadvantage is that one might sacrifice modal damping and natural frequency 
at the expense of maintaining a desired eigenvector structure. 

This concludes the framework for eigenstructure analysis and synthesis via 
specific numerical optimization strategies. Let us now turn to a discusssion of the 
algorithm which formulates the theory presented in Chapters III and IV. 
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V. EIGENS: AN INTERACTIVE DESIGN ALGORITHM 
A. DESIGN PHILOSOPHY 

The EIGENS program is an interactive Fortran algorithm designed for complex 
eigenstructure synthesis of systems up to tenth order. The tenth order limitation is 
easily modified for systems of higher order by increasing the array sizes for all matrices 
in the program. Throughout the development of the program, interactive coding was 
used extensively not only for on line debugging but also due to the iterative nature of 
numerical optimization. In addition, by the very nature of eigenstructure assignment, 
user familiarity with the system structure and subsequent interaction is a necessary 
ingredient for a converged solution of feedback gains. 

In that the program developed as a research-learning program over the period of 
the thesis research, some of the earlier synthesis routines such as the Moore- Matrix and 
Moore-Algebraic solutions, were never used for the results presented in this thesis. 
They were written early on to gain an understanding of the classical results presented 
by Moore [Ref. 10] and were never exercised subsequent to coding the theory presented 
in Chapter III. All of the results presented in this thesis were computed based on the 
theory of Chapter III. 

The basic input data beyond the necessary open loop parameters include a 
desired closed loop eigenstructure. User verification of this data is by means of visual 
display of the data. A verification data file is also written for future reference by the 
user. Controllability checks of the open loop eigenvalues are then displayed to the 
user. Beyond these checks, the program relys on the user for guidance during the 
numerical synthesis portion. Some examples of the guidance needed are: 

1. Upper and lower bounds on the arbitrary and specified right eigenvector 
elements or eigenvalues (Problem I minimization), 

2. Acceptance of the closed loop design based on the null space residuals. 

3. Number of iterations and values for p (Problem II minimization). 

Thus the user becomes a required feedback loop in the synthesis process. This is 
the basic philosophy of the EIGENS code. The user becomes more familiar with the 
system as time progresses and subsequently becomes expert in the final structure of the 
closed loop design. A description of the major routines of EIGENS follows. 
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B. PROGRAM DESCRIPTION 

As alluded to in previous section, there are two basic feedback gain solution 
procedures coded in the program. The Moore-Matrix/ Moore- Algebraic solutions are 
limited to real systems where the number of outputs are greater than the number of 
inputs (/> m). The Kautsky solution entails the theory presented in Chapter 111 and is 
only limited by the tenth order requirement. Therefore, during the course of the 
subsequent discussion, when reference is made to the Moore solution, it will be brief. 

A note with regard to the Moore solutions must be made. For the solutions. 
EIGEN'S requires the desired closed loop right eigenvectors to be input in the following 
form. 



v. = Cxj (eqn 5.1) 

where C is the output matrix and x ; is the desired closed loop right eigenvector. 
(Presently v. must be input irrespective of using the Moore or Kautsky solutions). 
Upon completion of the Moore routines, the subsequent closed loop eigenvectors are 
then checked for linear independence. If the vectors are not independent, the user is 
queried as to new values of v. in equation 5.1 for reentry into the Moore routines. 
Upon converging on an independent set of right eigenvectors, feedback gains. F, are 
then computed. The reader is referred to [Ref. 10] for the details of this procedure. 

The EIGEN'S Fortran listing is shown as Appendix C. Figure 5.1 depicts the 
general flowchart for the EIGEN’S code and the reader is referred to Appendix C for 
detailed analysis. In the discussion which follows, only the main program and those 
subroutines which perform the feedback gain computations are described. Auxiliary 
subroutines which perform such computations as complex singular value 
decomposition (CSVD). complex matrix multiplication (CMAMTU), etc., will not be 
discussed in detail. These auxiliary programs are masked to the user and are only 
required for the execution of EIGEN’S. A description of the flowchart blocks is 
discussed below. Notation for the number of states, inputs, and outputs is N, M. and 
U respectively. 

1. Upon completion of initializations, the data is read from File 01 as follows. 
(The format statement numbers are designated bv 'xx' for ease of description 
and the read format is shown adjacent to each read statement statement). 

READ(l.xx)TlTLE (20A4) ‘ 

READ(l.x.x)N,M,L.IFEED (412) 
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IFEED = 1 (State Feedback) 

IFEED = 2 (Output Feedback) 

IFEED = 3 (Output Feedback w Feedfwd) 
READ(l,xx)((A(I.J).J = l.N).I = l.N) (6F12.5) 

READ( 1 .xx)((B(I.J),J = l.M ),I = l.N) (6F12.5) 

READ(l.xx)((C(I.J).J = l.N). I = l.L) (6F12.5) 

If IFEED = 1 or 2 SKIP TO READ EIGD 
READ(l.xx)((D(I,J).J = 1,M).I = l.L) (6F12.5) 

READ( l.xx)ElGD(I) (Desired C-Loop /.•) (2F12.5) 

READ( l.xx)E(J.I) (Desired Cxj) (2F12.5) 

RE AD( 1 ,xx) VD( J , I ) (Desired x.) (2F12.5) 

2. The data is then displayed to the user for input verification. 

3. After computing the open loop eigenvalues, the controllability of each /.. is then 
computed and “displayed bv a controllability flag. If the controllability flag 
equals one. then the open loon eigenvalue can be “shifted via state feedback. IT 
the flag equals. zero, then the open loop eigenvalue is invariant under state 
feedback. In this case the eigenvalue cannot be shifted. 

4. Subsequent to the controllability computations, the user is then allowed to 
change the desired closed loop eigenstructure onlv if the Moore solutions are 
going to be invoked. The user must change File 01 to input a new desired 
close“d loop eigenstructure if the Kaustky solution is to be used. 

5. Select feedback gain solutions (Moore or Kautsky). 

6. Display results. 

As the Kautsky solution was used for the results presented here, this subroutine 
will be discussed in detail. As a final discussion of the Moore solutions, note that in 
Figure 5.1 these solutions are complete when the resulting right eigenvectors are 
linearly independent. The resulting feedback gains are then computed, the user is 
queried as to the necessity of a singular value analysis of the return difference matrix, 
and the final design results are displayed. Let us now turn to the Kautsky solution 
which is coded within the KVECT subroutine. 

C. SUBROUTINE KVECT 

Figure 5.2 depicts the flowchart for KVECT. Subsequent to initializations, the 
SVD of B is performed and the necessary block matrices are computed. The 
subroutine then performs 'n' Problem I minimizations to construct the allowable right 
eigenvector set nearest to the desired modal set. The user then has the option of 
minimizing c m (I FG) (Problem II minimization) for the full state feedback case 
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only. If output feedback synthesis is required (1FEED = 2 or 3) and the rank of C is 
less than 'n'. KVECT then calls FEEDEF for further computations. Upon completion 
of feedback gain computations, the code returns to the main program for display of 
results and any further processing the user might desire. 

D. SUBROUTINE FEEDEF 

Figure 5.3 depicts the flow for the FEEDEF subroutine. Note that the user has 
access to the Problem II minimization process via designation of the scalar weightings 
W r and Wj. Upon completion of the minimization and feedback gain calculations, the 
program returns to KVECT. 
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Figure 5.1 EIGEN'S General Flowchart. 
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Figure 5.2 Subroutine KVECT. 
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Figure 5.3 Subroutine FEEDEF. 
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VI. MIMO CONTROLLER DESIGN DEMONSTRATIONS 

A. A ROBUST DECOUPLING STATE FEEDBACK CONTROLLER 

The lateral dynamics of the CH-47 helicopter [Ref. 36] have the following state 
variable representation. 

x = Ax + Bu 
y = Cx 

where the state vector is defined as, 

x = {v p r (p} T 

and the units of the vector elements are, 

Xj = v = y velocity (ft, sec) 
x-) = p = roll rate (rad sec) 
x- = r = yaw rate (rad; sec) 
x 4 = cp = bank angle (rad) 

The system matrices are shown in Table 2. 

Lateral stability augmentation (LSA) to a roll command input, 5, is accomplished 
via state feedback with feedforward as follows. 

u = Fx + G 7 5 (eqn 6.4) 

where, 

u = <Pr Pp) T ( ec l n 



(eqn 6.1) 



(eqn 6.2) 



(eqn 6.3) 
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TABLE 2 

CH-4" LATERAL DYNAMICS MODEL 



I 



A B C 



_■> 1 ~ 


-1.42 


-0.15 


31.99 


0.12 


0.95 


1 


0 


0 


0 


Ixbi 


-0.“0 


-0.0' ' 


00.00 


0.04 


-S.37 


0 


1 


0 


6 


0.04 


-0.05 


-0.05 


00.00 


0.34 


0.02 


0 


0 


1 


0 


0.00 


1.00 


0.11 


00.00 


0.00 


0.00 


0 


0 


0 


1 



and. 

p r = yaw rate rotor deflection control 
p o = roll rate rotor deflection control 
is the fourth column of the state feedback matrix. F. 

G 2 = (F(l,4) F(2.4)} T (eqn 6.6) 

In that feedforward control has no influence on the resulting closed loop 
eigenvalues, there exist several alternatives with regard to choosing an acceptable form 
for G->. As the system zeroes are invariant under state feedback, an acceptable form 
might be one which allows flexibility in invoking specific dynamic and static error 
responses to the system [Ref. 3"]. No modification to Gi was performed for this 
example. 

The design requirements for the state feedback controller are: 

a. Improve the performance and robustness of the system with respect to 
uncertainties at the plant input and. 

b. Shift the open loop eigenvalues from. 

A ql = diag(-2.09S -1.079 0.207 -0.050} (eqn 6.7) 

to the following closed loop eigenvalues. 

A C l = diag (-25. 1 20 -12.510 -9.652 -2.125} (eqn 6.S1 
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Improvement of the performance and robustness can be based on several 
measures (Ref. 38]. For the purpose of this example, increasing the minimum singular 
value of the return difference matrix, + FG(jco)}for to ^ 50.0 radians was used 

as a robustness criterion. G is the transfer function matrix between the input u and 
output y, C(jtoI n - A)*^B. In the discussions below, the term MIMO robustness is 
synonymous with the t> m (I m + FG) defined above. 

Sandell [Ref. 36] et. al. presented three different feedback gain solutions which 
successfully invoked the above. Two of the three lacked MIMO robustness since 
c> m of the return difference matrix had values of as low as 0.3. This is a prime example 
of the non uniqueness of solutions for F when implementing a pole placement 
algorithm for MIMO systems. In other words, a particular set of feedback gains, F. 
will invoke a specific robustness measure while simultaneously shifting the eigenvalues. 
Gordon [Ref. S] exploited this non uniqueness using numerical optimization techniques 
and designed robust feedback controllers which simultaneously shifted the eigenvalues 
and set <7 m (I m + FG) greater than or equal to 0.6. Another way of improving the 
robustness of the system is by designing an optimal LQG controller. In this way the 
degrees of freedom beyond pole placement take the form of an optimal control 
solutions. Chow [Ref. 9] designed such an optimal state feedback controller while 
simultaneously shifting AqL to A^- 

The eigenstructures of these designs designated as Son- Robust. Gordon, and. 
Chow, are depicted in Table 3 in orders of increasing robustness. Examination of the 
eigenstructures reveal an increased modal decoupling of yaw rate as the robustness 
improves. It is this observation which prompted the use of eigenstructure assignment 
to compute a feedback solution. By using the following desired eigenstructure. 

x x x x 
x x x x 

X = 

0 0 0 x 
x x x 0 

A = diag (-25. 1 20 -12.510 -9.652 -2.125} 

where .r is an arbitrary design variable, and 0 is a specified value for the decoupling; 
and by executing the State Feedback Controller Synthesis procedure of the EIGEXS 
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code, the feedback solution denoted as EIGENS in Table 3 was obtained. Note the 
decoupling of the yaw rate elements and the resulting A^. Figure 6.1 depicts the 
resulting minimum singular value plots of the four designs. Note that robustness and 
eigenvalue placement was achieved simultaneously in a rather straightforward manner 
using eigenstructure assignment. 



TABLE 3 

CH-47 DECOUPLING STATE FEEDBACK DESIGNS 

Design Eigenstructure 

Feedback Gains 



Non-Robust Design 









-24. SO 


-11.42 


-10.30 


-2.1 


1.7 

-0.024 


23.5 

2.71 


-70.6 

-0.37 


-595. -0.416 

7.99 0.117 

- 1 . 000 

0.000 


0.641 
0.401 
1 . 000 
-0.045 


0.701 

0.404 

1.000 

-0.050 


1.000 

-0.00S 

-0.019 

0.005 








Gordon Design 














-24.90 


-11.90 


-10.70 


-2.34 


14.2 

0.05 


-3.6 

2.6 


-78.0 

-0.2 


61.0 -0.415 

15.6 -0.122 

- 1.000 

0.009 


0.233 
1.000 
- 0.124 
-0.0S3 ‘ 


-0.33S 

-1.000 

-0.095 

0.093 


- 1.000 

0.031 

- 0.205 

-0.004 








EIGENS Design 














-25.12 


-12.50 


-10.50 


-2.12 


-S.37 

-1.79 


-2.57 

4.05 


-34.64 

-5.10 


-59.94 0.002 

2S.01 -1.000 

- 0.004 

0.040 


-0.254 

-1.000 

0.012 

o.oso 


-0.364 

-1.000 

0.0S5 

0.095 


- 1 ,000 
-0.043 

0.555 

0.003 








Chow Design 












' 


-25.30 


-11.62 


-10.40 


-2.10 


-0.65 

-0.022 


-0.36 

4.14 


-34.64 

4.64 


-6.60 0.003 

30.64 -1.000 

- 0.002 

0.040 


-0.290 

-1.000 

0.042 

0.0S5 


0.409 

1.000 

- 0.007 

-0.096 


-1.000 

o.oos 

0.020 

-0.005 
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B. A QUASI- OPTIMAL STATE FEEDBACK DECOUPLING CONTROLLER 

As noted previously. Chow [Ref. 9] successfully coded an algorithm which will 
obtain an optimal state feedback LQG control solution which invokes a desired A^. 
Table 4 depicts the eigenstructure of one of his solutions for the CH-47 lateral stability 
controller. Note however that the yaw rate element associated with the fast eigenvalue. 
X._j = -2.125. exhibits some coupling. By inserting a numerical zero in place of the 
eigenvector elemental value of 0.1737 for x^. and retaining the rest of the 
eigenstructure as inputs to the EIGENS algorithm, the Yaw Decoupled design 
structure was obtained. The resulting minimum singular value of the return difference 
matrix (I + FG) for this design, however, decreased to approximately 0.72. At this 
point, one has an acceptable decoupling design but it is not optimal, since <7 m (I m + 
FG) is less than 1.0. Using the yaw decoupled eigenstructure as inputs to the Robust 
State Feedback Controller Synthesis procedure of the EIGENS code, a minimization of 
equation 4.17 resulted in a value of a of 0.905. As a is nearly one for this solution, the 
feedback gains are termed Quasi-Optimal and the resulting eigenstructure is shown in 
Table 4. Note the yaw rate decoupling throughout the eigenvector matrix. Figure 6.2 
shows the progression of the minimum singular value for each of these designs and 
clearly notes the increased robustness of the Quasi-Optimal solution over the Yaw 
Decoupled solution. Figure 6.3 depicts the resulting transient response to a 2.0 sec 0.1 
radian roll pulse command for the Quasi-Optimal Yaw decoupled system. Note the 
essentially zero (10“* rad sec) yaw rate response. 

C. A ROBUST OUTPUT FEEDBACK CONTROLLER 

The state variable lateral dynamics model of the L-1011 transport augmented 
with rudder and aileron dynamics is shown below [Ref. 24], 

x = A aus? x + Bu ( e fi n 6 - 9 ) 



y = Cx (eqn 6.10) 

where the augmented state vector is defined as, 

X 1 = Pr ’ ru ^der deflection (deg) 

x^ = p a , aileron deflection (deg) 
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TABLE 4 

CH-47 OPTIMAL STATE FEEDBACK DESIGN'S 






Design Eigen s tract lire 





-25.120 


-12.509 


-9.651 


-2.125 


Chow LQG 


-0.0033 

0.9992 

0.0001 

-0.039S 


-0.2493 

-0.9654 

-0.0022 

0.0772 


-0.4650 

-0.S796 

-0.0405 

0.0916 


-0.9S47 
-0.0179 
0.1737 
‘ -0.0006 




-25.124 


-12.510 


-8.094 


-2.153 


Yaw 

Decoupled 


-0.0033 

0.9992 

0.0001 

-0.0398 


0.2493 

0.9654 

0.0022 

-0.0772 


0.6103 

0.7862 

-0.0023 

-0.0971 


- 1.0000 

0.00S2 

-0.0004 

-0.0038 




-24.661 


-12.511 


-S.7S0 


-2.220 


Quasi-Optimal 
\ aw Decoupled 


-0.00 IS 
0.9992 
-0.0043 
-0.0405 


-0.2492 

-0.9654 

-0.0022 

0.0772 


-0.5326 

-0.8409 

0.0046 

0.U957 


1.0000 

-0.0041 

0.0002 

0.0018 



X3 = cp , bank angle (deg) 

X/j = r , yaw rate (deg, sec) 
x^ = p . roll rate (deg; sec) 

Xg = P , sideslip angle (deg) 
x? = f WQ , washout filter state 

The input vector.u .is composed of the rudder and aileron commands. p c and p r . 

u = (p c p a } T (eqn6 .ll) 

The system matrices are shown in Table 5. 

Sobel and Shapiro [Ref. 24] applied the classical results of Moore [Ref. 10] to the 
design of a lateral stability augmentation system (LSAS) for the L- 1011 aircraft. The 
following design requirements set forth in [Ref. 24] were used. 
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TABLE 5 

L- 101 1 LATERAL DYNAMICS MODEL 



A 



20.00 


0.00 


0.00 


0.00 


0.00 


0.00 


0.00 


0.00 


-25.00 


0.00 


0.00 


0.00 


0.00 


0.00 


0.00 


0.00 


0.00 


0.00 


1.00 


0.00 


0.00 


■0.744 


-0.032 


0.00 


-0.154 


-.0042 


1.54 


0.00 


0.337 


-1.120 


0.00 


0.249 


-1.00 


- 5.20 


0.00 


0.020 


0.00 


0.03S6 


-0.996 


-.0003 


-0:117 


0.00 


0.00 


0.00 


0.00 


0.500 


0.00 


0.00 


-0.500 






B 












20.00 


0.00 












0.00 


25.00 












<i> 


4x2 
















C 








0.0 


0.0 


0.0 


1.0 


0.0 


0.0 


-1.0 


0.0 


0.0 


0.0 


0.0 


1.0 


0.0 


0.0 


6.0 


6.6 


0.0 


0.0 


0.0 


1.0 


0.0 


0.0 


0.0 


1.0 


0.0 


0.0 


1.0 


0.0 



a. Shift the open loop roll and dutch roll eigenvalues to -1.5 ± 1.5j and -2.0 ± 
l.Oj respectively, and. 

b. Decouple roll rate and bank ansle from the dutch roll vectors and decouple vaw 
rate and sideslip angle from theToll vectors. 

This design problem was executed via the Output Feedback Synthesis procedure 
of the EIGENS code subsequent to a model reduction. Since the first order actuator 
eigenvalues were an order of magnitude greater than the aircraft and washout filter 
poles, the faster actuators were ignored during the design synthesis. Upon computing 
the feedback gains, the slow' system was then augmented to include the faster actuator 
dynamics prior to transient response analysis. This technique of eigenspace separation 
becomes a computational necessity when synthesisizing controllers for high order 
augmented linear systems. An augmented linear dynamic model of the F A- IS tactical 
aircraft for example [Ref. 39] consists of fifty-five state variables. 

Upon reducing the model to five states, the following desired eigenstructure was 
input to the EIGENS code. 
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-0. 6 



X l,2 

•1. 5 ± 1. 5 j 



^'3 , 4 

■2. Oil. Oj 



X 1 , 2 


x 3 , 4 


X 


0 


X 


X 


X 


0 


X 


0 


X 


X 


X 


0 


X 


X 


0 


X 



where .v again denotes an arbitrary design variable. The resulting feedback gains and 
eigenstructures are compared with those of Sobel and Shapiro in Table 6. The closed 
loop responses to an initial sideslip angle of {3 = 1.0 degree are shown in Figure 6.4. 
Figure 6.5 depicts the response using the El GENS generated gains. Figure 6.6 
compares the minimum singular value plots of the two designs. The designs have 
nearly identical robustness properties. 

This concludes the discussions with regard to designing robust MI MO 
controllers. The design technique has been shown to provide flexibility towards 
improving an existing robust or optimal design.. It also allows the designer to exercise 
control over the modal content of the resulting system within the subspace constraints 
noted in Chapter III. It is this modal control which provided the motivation to 
investigate the application of eigenstructure assignment to reconfigure damaged aircraft 
control systems. Damage to aircraft control surfaces, wing, body profiles, or to control 
actuators in effect change the resulting closed loop modal eigenstructure. If one were 
able to regain the undamaged modal structure, then one has reconfigured the aircraft 
control system. Let us now turn to a discussion of such a concept. 
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TABLE 6 

L- 101 1 OUTPUT FEEDBACK DESIGNS 





Sobel & Shapiro Results 




Feedback Gains 




h 


-3.35 0.159 4.SS 

-1.-42 -2.3S 6.36 


0.379 

-3.8 


-17.05 

-22.01 

-1.502 ± 1. 4971 
-2.001 ±.9995 
-0.6989 


Natural Freq 


Damping Ratio 




2.12 

2.33 


EIGEN S Results 


0.708 

0.8946 


Feedback Gains 






-3.SS 0.107 6.12 

-1.29 -2.64 6.51 


0.1S3 

-4.44 


-16.50 

-21.7 

-1.79 ± 1.55j 
-2. 15 ± 1.02 
-0.698 


Natural Freq 


Damping Ratio 




2.368 

2.3SO 




0.756 

0.9035 
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MIN SINGULAR VALUE 
0.0 0.2 0.4 0.0 O.a 1.0 1.2 




Figure 6.1 + FG) for CH-47 Decoupled Designs. 
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MIN SINGULAR VALUE 

0.0 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0 




FREQUENCY (RAD/ SEC) 



Figure 6.2 + FG) for CH-47 Optimal Designs. 
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QUASI-OPTIMAL YAW DECOUPLED DESIGN 
RESPONSE TO 2.0 SEC .10 RAD ROLL PULSE 




Figure 6.3 CH--17 Lateral Response for Optimal Designs. 
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SOBEL/SHAPIRO 

CLOSED LOOP RESPONSE TO 1.0 DEG IN1T p 




Figure 6.4 L-1011 Response to p(0) = 1.0 deg:Sobel. 
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Figure 6.5 L-1011 Response to P(0) 



1.0 deg:EIGENS. 
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MIN SINGULAR VALUE 

0.0 0.2 0.4 0.0 0.8 1.0 1.2 1.4 1.6 1.8 2.0 







Hi 



eso 1 | | | | 

0.0 10.0 20.0 30.0 40.0 50.0 

FREQUENCY ( RAD/ SEC) 

Figure 6.6 + FG) for L-1011 Decoupled Designs. 
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VII. EXPLOITATION OF EIGENSTRUCTURE ASSIGNMENT TO SELF 
RECONFIGURING AIRCRAFT MIMO CONTROLLERS: A NEW 

APPROACH 



A. PROBLEM STATEMENT 

Prior to defining the objectives of a self - reconfiguring MIMO controller, one 
must clearly state the types of system changes and or deficiencies which might require 
the flexibility of such a device. In this thesis, the design requirement of the aircraft 
under analysis was assumed to be the undamaged or design dominant eigenstructure for a 
specific airspeed, altitude and mission configuration. A system change or deficiency 
might include: 

a. Asymmetric or symmetric degradation of control surface effectiveness. 

b. Asymmetric or symmetric control surface loss, 

c. Single or multiple actuator degradation or failure, 

d. Single or multiple sensor degradation or failure, or 

e. Any aircraft damage which significantly changes the stability derivatives and 
therefore the modal response of the aircraft. 

The design objective of a self - reconfiguring MIMO controller as interpreted in 
this thesis is therefore to regain the undamaged modal structure subsequent to such 
system deficiencies via a new or reconfigured set of feedback gains. The objective is 
not a systems approach to reconfiguration but rather a tailored algorithm which 
extends the application of eigenstructure assignment. The reader is referred to [Ref. J 0] 
as an example of what is termed a systems approach to the reconfiguration problem. 
A mathematical definition of such a controller might be stated in the following way. 

Problem Statement 

Does there exist, and if so, what are the new set of feedback gains required to regain 

the desired dominant eigenstructure subsequent to a system deficiency ? 

In terms of the overall flight control system, there are additional assumptions 
beside the existence of a solution which are implicit in this problem statement. The 
three most recognizable are: 

a. The deficiency, or damage, is assumed to be detectable in a time scale much faster 
than the response time of the aircraft, 

b. Sufficient moment and force authority exist in the remaining undamaged control 
surfaces to overcome the deficiencies and, 
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c. Appropriate feedback loops exist between the sensed motion variable and all 
available control surfaces. 

Note that the objective of the reconfigured controller in this thesis is to regain 
the undamaged modal response with the assumption that the system deficiency has 
been detected. This is not to say however that the technique described below cannot be 
applied to the detection process. The concept may be equally applied to detection or 
observer design. 

B. ALGEBRAIC SOLUTION 

An algebraic solution to the problem used in this thesis is presented as follows. 
It was shown previously that for the output feedback case, the set of unique feedback 
gains, F. which invoke m x l elements of a desired right eigenvector matrix, .V, and 
max(tn.l) elements of the eigenvalue matrix, A. in the least square sense, are defined by. 

F = ZJU^XAX- 1 - A)Z c ' 1 U C0 T (eqn 7.1) 

where each right and left eigenvector must be members of null spaces defined by their 
respective closed loop eigenvalues. h, 

x ie iZ'(U bl T (A -Xjl n )} (eqn 7.2) 

t6^(l ctl T (A T -Ll n )} (eqn 7.3) 

In order to facilitate the analysis, let us rewrite equation 7.1 by substituting 
for Z b ' l \: bo T and C z for Z^U^ 1 , 

F = B^XAX' 1 - A)C Z (eqn 7.4) 

In equation 7.4 let us define the undamaged dominant modal structure, or design 
requirement noted above, by designating the matrix M , where, 

M = XAX" 1 = BFC 4- A (eqn 7.5) 
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as the modal matrix. Note that system deficiencies or damage as defined previously, 
would result in either collective or distributional changes to the matrix triple (A.B.C). 
A large change in the control matrix B for example, would occur if a particular control 
surface was rendered ineffective by combat damage. Such a change might invoke 
zeroes in B and perhaps even cause rank degeneracy in the control matrix. Let us 
denote such changes as 8A. 5B. and 5C. Further, if the feedback gains in 7.4 were held 
constant, then the modal matrix. M, would likewise undergo changes. 5M. since if the 
feedback gains were to be held constant in 7.4, the following equality would arise. 

F = (B z -r 5B Z )(M + 5M - (A + 5A)J (C z + 5C Z ) (eqn 7.6) 

Again, cases may arise where 5M could represent benign responses such as decreased 
pitch response due to symmetrical elevator degradation or severe changes such as an 
undesired roll. and yaw response from pitch commands due to asymmetric elevator 
degradation. In order to maintain the integrity of the dominant modes of the modal 
matrix, M, constant in 7.6. and thereby regain the undamaged modal response, one 
could allow the feedback gains F to undergo a perturbation 5F. to lessen the 
magnitude of 5M. The flexibility of eigenstructure assignment and its suitability for 
solution by numerical optimization techniques allow one to perform such a calculation. 
For example, if one required the closed loop eigenvalues, A. to remain constant, one 
would allow the closed loop eigenvector matrix. X. to assume the role of design 
variables in an optimization routine to satisfy equation 7.2. By converging to such a 
solution and designating the subsequent changes to the modal matrix M as 5m. where 
5m represents minor changes to the dominant modes, one has. 

F + 5F = (B z + 5B Z ){M + 5m - (A + 6A)}(C Z + 5C Z ) (eqn 7.7) 

with the additional constraints that the right and left eigenvectors must now be 
members of the following perturbed null spaces, 

x ; e &{( U bl + 5L m ) T (A + 5 A - U n )} (eqn 7.S) 

tj £ ^{(U ct i + 5U ctl ) T (A T + 5A T - A.jl n )} (eqn 7.9) 
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Note that in equations 7.S and 7.9. the changed open loop parameters are A + 5.A, B 
+ 6B, and C + 6C and as such remain constant. If one desires a specified closed loop 
eigenvalue matrix. A. then one must allow the eigenvectors x- and tj to rotate until 
equations 7.8 and 7.9 are satisfied. If such a solution exists, then one has reconfigured 
the system to regain a response close to the undamaged response. Note additionally 
that one may apply the concept of eigenvalue shifting described in Chapter VI. Section 
B.4. to satisfy the null space requirements of equation 7.8 and 7.9. Equations 7.7, 7.8. 
and 7.9 are the key relations used in the reconfiguration algorithm presented in this 
thesis. 



C. RECONFIGURATION ALGORITHM 

The reconfiguration algorithm presented in this thesis which codes the key 
relations noted above can facilitate analysis of a fifty - five state variable model with 
up to ten inputs and eighteen inputs. It is composed of three sequentially 
interdependent Fortran algorithms ( RECONF . ERSPACE , ELSPACE) which execute 
the reconfiguration constraints noted in equations 7.7 through 7.9 It is assumed that 
the user has independently computed a set of feedback gains for a particular system 
which invoke a satisfactory’ eigenstructure. The reconfiguration algorithm initializes 
the design analysis with the user provided data and computes the modal matrix, M, for 
further use. The algorithms were coded for execution on the Naval Postgraduate 
School IBM - 370 mainframe via interactive access through compatible user terminals. 
The reader is referred to Appendices D, E. and F for the program listings. A 
sequential description of a typical reconfiguration flow is described below. Acronyms 
to the left of the program name are designated as read files, those to the right are 
designated write data files. 

a. RECONF reads the undamaged svstem matrices (A.B.C.F) and writes the 
undamaged modal eigenstructure (X.'A). 

RECONF-— > --{RECONF}— -> UNDEIG 

b. RECONF reads the user provided damaged svstem matrices (RECOXX) and 
undamaged modal eigenstructure ( UNDENT) a'nd writes the appropriate ri”ht 
eigenstructure data (ERSPACE) for right null space analvsis (7.8). The user has 
control over the order of the design space bv designating the upper and lower 
bounds of the eigenvalues of interest. In this wav, ’"the user mav svnthesize the 
entire eigenspace bv segmenting the whole space into iterative 'segments of 
design spaces or may specify a reauced order design eigenspace. 

RECOXX — > —(RECONF} — > —ERSPACE 
UNDEIG 

c. ERSPACE reads the right eigenspace data and calls the ADS program to 
minimize a specific norined vector distance between the undamaged right 
eigenvector and the perturbed (damaged) right null space (7.S). Upon 
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convergence, the appropriate left eigenstructure data is written ( ELSPACE) for 
left null space analysis (equation 7.9). 

ERSPACE-— > — -{ERSPACE}— -> -—ELSPACE 

d. ELSPACE reads the eigenstructure data and uses the ADS program to 
minimize the euclidean 'distance between the desired left eigenvector and 
perturbed (damaged) left null space. The user has the option of performing the 
minimization bv "either eigenvector or eigenvalue shifting. After convergence is 
obtained for each left eigenvector, the right null space residual is also displayed 
to alert the user of anv~conflict with the resulting right eigenvector null space 
membership. If such a' conflict arose, the code could "be modified to rewrite the 
ERSPACE data rile for reentry into the ERSPACE algorithm. No such 
requirement has been noted for the model under analysis for the research 
reported in this thesis. This is due to the fact that for the F A- ISA linear 
dynamic model presented in Chanter VIII. the dimensions of E and E; are 4o 
and 37 respectively. Therefore diE ) > d(E/l. Upon completion of the left null 
space analysis. ELSPACE writes the optimized eigenstructure (OPTEIG) for 
use by RECOXF to calculate the reconfigured gains! 

ELSPACE— ->— -(ELSPACE}— -> OPTEIG ■ 

e. RECOXF reads the optimized eigenstructure and calculates the resulting 
feedback gains (FRECON). reconfigured eigenstructure (RECEIG) and required 
time response data for plotting. (OPTXXX) for plotting. Plotting is performed 
by auxiliary programs not described in this thesis. 

RECOXX— >— RECOXF— > FRECON. OPTEIG 

RECEIG. OPTXXX 



A sample run is presented in Appendix G. 
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VIII. A RECONFIGURED SOLUTION DEMONSTRATION 



A. BACKGROUND 

The F A- ISA was chosen as a demonstration vehicle for the solution technique 
posed in Chapter VII due to its digital flight control system and availability of control 
surfaces for reconfiguration. A current tactical aircraft in the U.S. Navy and Marine 
Corps inventory', its primary flight control is baselined as a control augmentation system 
which is implemented via fly-by-wire technology [Ref. 41]. The discussion will continue 
with a brief description of the aircraft control system and dynamic model followed by 
specific damage scenarios which were treated during the research reported here. 

B. F/A-18A SYSTEM OVERVIEW 

The F A- ISA control augmentation svstefn uses feedback eain scheduling, cross 
axis paths such as rolling surface to rudder, and closed loop control for acceptable 
flying quality and aircraft stability. Flying quality guidelines are based on military’ 
specification MIL-F-87S5B Level I requirements for high maneuverability aircraft 
[Ref. 41]. Aircraft stability margins are per MIL-F-94900 which require 6 db of gain 
margin for all closed loop modes. Control law computations are performed via parallel 
digital processing of angle of attack, normal acceleration, and dynamic static air data 
to invoke the desired responses of various flight conditions. Figure 8.1 is taken from 
[Ref. 41] to show the flight control system from a functional level. 

Figure S.2 depicts the ten control surfaces of the aircraft. In the undamaged 
configuration, longitudinal control is accomplished via symmetric deflection of right 
and left stabilators and leading'trailing edge flaps. Lateral directional control is 
accomplished via differential deflection of the right and left stabilators. ailerons, 
leading'trailing edge flaps, and synchronous rudder deflections. Each flight control 
surface is driven by electro-hydraulic servoactuators with known dynamics. Rate gyros 
and angle of attack sensors provide the sensed motion data which is input to the digital 
computers for primary data processing during the flight control mode. 

As mentioned previously, the primary inner loop control is accomplished via 
three-axis air data and angle of attack 'gain scheduled feedback control. Control law 
computations are of two categories: Power Approach for take off and landing and Auto 
Flap Up for all other flight modes. Only the Auto Flap Mode was incorporated in the 
dynamic model used during the thesis. 
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C. F/A-1SA LINEARIZED DYNAMIC MODEL 

The linearized F/A-1SA continuous state variable model for fighter escort 
configuration is as follows. 

♦ 

x = Ax + Bu (eqn S.l) 



y - Cx + Du (eqn S.2) 

where the state vector is composed of both the longitudinal and lateral aircraft states. 

x = {u w q 0 r p v (p} T (eqn 8.3) 

and the state vector elements are. 

u = forward velocity 

w = vertical velocity 

q = pitch rate 

0 = pitch attitude 

r = yaw rate 

p = roll rate 

v = side velocity 

(p = bank angle 

The input vector u is composed of the following eight inputs, 

u = (dst x dle x dte x p st p Je p [e p a p r } T (eqn 8.4) 

where d denotes symmetric deflections and p denotes differential deflections of the 
stabilator (st), leading edge flaps (le), trailing edge flaps (te), ailerons (a), and rudders 
(r). The system matrices were computed from data in (Ref. 41] for a flight condition of 
M = 0.6 and an altitude of 10.000 feet. They are shown in Table 7. 
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The output vector, y, is. 



v 



= (q 



aa r p n v } 



T 



(eqn S.5) 



where 

n z = normal acceleration 
aa = angle of attack 
n v = lateral acceleration 

D. F/A-18A AUGMENTED LINEARIZED DYNAMIC MODEL 

Rojek [Ref, 39] modeled the F A- ISA aircraft dynamics augmented with 
actuator, sensor and feedback filter dynamics for the Auto Flap Up flight mode in 
discrete form. 

Figures S.3 and S.- depict the linearized longitudinal and lateral-directional 
control law model coded in [Ref. 39]. In the figures, F denotes the gain scheduled 
function values and P denotes the presence of a filter. Constant gains are denoted by 
numerical values. Non-linear components of the full order control law model noted in 
[Ref. 41] were either ignored or linearized as follows. 

a. Non-linear dynamics of the control laws such as position limiters, rate limiters, 
dead band regions, and inertial couplings were ignored. 

b. Stick and rudder dynamics were ignored. 

c. A constant sample rate was assumed and therefore pre-aliasing filters were not 
included in the model. For this thesis, an eiszhtv hertz samplin 2 rate was 
invoked. 

d. Structural notch filters were ignored as structural modes were not modeled. 

e. As the model was designed to simulate cruise flisht conditions, faders which 
smooth out discontinuities durins system start up and other transitional phases 
were ignored. 

The control law model provides gain scheduling as noted in paragraph V1II.B. 
Lead-lag filtering is also provided to shape the feedback responses and to ensure 
acceptable phase and gain margins within the feedback paths. [Ref. 39] presents 
detailed information with regard to descretization of the continuous actuator, sensor, 
and control filter models shown in [Ref. 41]. 

[Ref. 39] formulated the discrete F/A-18A dynamic model as a fifty-five 
augmented state variable system. This particular state variable form modeled the 
discrete pilot commands as the input vector, u(k). 
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TABLE 7 

F A- ISA SYSTEM MATRICES FOR M = 0.6, ALT = 10.000 FT. 



-.0133 


.07127 


O 


A 

-32.17 


0 


0 


0 


0 


-.0728 


-1.140 


641.92 


-1.460 


0 


0 


0 


0 


0 


-.0127 


-.9470 


.00050 


0 


0 


0 


0 


0 


0 


1.0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


-.2450 


-646.9 


.02S50 


32.1S9 


0 


0 


0 


0 


.00S49 


-.2460 


.11200 


0 


0 


0 


0 


0 


-.0256 


0.7300 


-2.S30 


0 


0 


0 


0 


0 


0 


0 


1.0 


0 


0 


0 


0 


B 

0 


0 


0 


0 


0 


-129.5 


19.430 


-149.0 


0 


0 


0 


0 


0 


-15.60 


-1.609 


1.4990 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


-6.930 


0 


0 . 


-2.915 


34.909 


0 


0 


0 


-.3960 


0 


-. S j50 


-.S960 


-3.260 


0 


0 


0 


11.S60 


0 


13.060 


13.140 


4.4 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


1.0 


C 

0 


0 


0 


0 


0 


-.072S 


-1.14 


-5.749 


0 


0 


0 


0 


0 


0 


.00154 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


1.0 


0 


0 


0 


0 


0 


0 


0 


O 


1.0 


0 


0 


6 


0 


0 


-.2450 


.77720 


.02S50 


.015 


0 


0 


0 


D 

0 


0 


0 


0 


0 


-129.5 


19.430 


-149.0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


-6.93 


0 


0 


-2.915 


34.909 



u(k) = (p x (k) p y (k) p z (k)} T (eqn S.6) 



where 



p x (k) = pitch stick command 
p v (k) - lateral stick command 
p z (k) = directiorial rudder command 
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Modeling in this way incorporates both the control surface deflection commands 
and feedback filter states within the plant matrix, A. In that the control surface 
deflection commands are the desired system inputs, u, and the discrete pilot commands 
are the desired reference commands. 5(k). the dynamic model was assembled in a 
different manner than [Ref. 39]. Equation 8.6 was reformulated as a reference 
command vector. 6(k), and the input vector. u(k). was reformulated as the ten discrete 
control surface inputs as follows. 

u = [rst 1st rle lie rte lte ra la rr lr} (eqn 8.7) 

where r and / denote right and left control surfaces and si, le , ie, a. and r denote 
stabilator, leading edge flap, trailing edge flap, aileron, and rudder deflections 
respectively. Additionally. Rojek provided longitudinal! LONG) and lateral (LATD) 
gain matrices which modified the equations of motion to accept individual control 
surface deflections as systems inputs. In this way, coupling between the longitudinal 
aircraft modes and longitudinal control surfaces, and also the lateral modes and control 
surfaces, are invoked via the gain matrix transformation. For symmetric control 
surface degradation where for example both right and left stabilators are degraded by 
an equal amount, the aircraft equations of motion remain uncoupled via the structure 
of the gain matrices (LONG. LATD). If only the right stabilator were degraded 
however, cross coupling of the aircraft modes would be invoked by the gain matrix 
structures. 

Assembling the model in this form leads to a classical state variable 
representation, 



x(k+ 1) = Ax(k) + Bu(k) + Gj(k)5(k) (eqn S.8) 



y(k) = Cx(k) 



(eqn 8.9) 



u(k) = Fy(k) + G 2 5(k) 

where the vectors have the following linear space dimensions, 



(eqn S. 10) 



S4 



The augmented output vector. y(k), is composed of the sensed motion variables 
and the control law filter states which arise from their state variable formulation. 

Y= (q n z aa r p n y | x d lxl2 } T (eqn 8.12) 

By examining equation S.12 and equation S.7 one observes the structure of the 
feedback gain matrix. F. Note how this structure exposes the feedback loops in the 
system in a numerical fashion. For example. F(l.l) is the static feedback gain between 
the sensed pitch rate, q, and the right stabilator deflection command, rst. This physical 
interpretation of the numerical structure of the system is not evident in [Ref. 39] and 
serves as a revealing source of information for reconfiguration analysis. Note 
additionally that the gain matrix. F. will remain constant unless different flight 
conditions and or regimes are assumed. Additionally, if one models control surface 
degradation via changes in the B matrix, then these constant F values will invoke 
undesired modal responses subsequent to pilot commands via 5(k). It is the intent of 
the reconfiguration technique to regain the undamaged response with the same pilot 
command inputs. This, of course, necessitates changing F by some quantitative 
amount 6F. This is exactly what we desire to determine by the solution technique 
described in Chapter VII. Let us now turn to some specific damage scenarios for 
solution. 

E. THE SYMMETRIC DEGRADATION PROBLEM 

Several types of flight control surface deficiencies or damage classes were 
presented in Chapter VII ranked in orders of severity. The initial type of damage class 
considered in this thesis was the symmetric degradation of control surface effectiveness. 
Specifically, two cases of symmetric degradation of the right and left stabilators were 
treated by the reconfiguration technique. Case A decreased the control effectiveness of 
both stabilators by 25%and Case D decreased the effectiveness by 50%. Since this 
type of longitudinal symmetric damage does not invoke lateral coupling, the perturbed 
eigenstructure only involves the longitudinal dynamics. This provides a suitable test 
case for the initial attempt at reconfiguration. 

As is the case in all eigenstructure synthesis scenarios, one must become familiar 
with the structure of the system prior to any design execution. In all of the damaged 
cases examined for this thesis, the design requirement was to regain the undamaged 
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Figure 8.2 F;A- ISA Flight Control Surfaces. 
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Figure 8.3 F/A-18A Longitudinal Control Model. 
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Figure 8.4 F/A-18A Lateral-Directional Control Model. 



longitudinal response to a 1.0 inch . 3.0 sec pitch up stick command. Figure S.5 depicts 
the undamaged longitudinal responses to such an input. Table S depicts the closed 
loop eigenvalues of the full order system. Note that a slotv eigenspace exists for a z- 
plane eigenvalue of greater than or equal to 0.9535. A slow design eigenspace was 
.therefore defined as z 2: 0.9535 and reconfiguration synthesis for the symmetric 
degradation cases was performed within this eighteenth order eigenspace. Table 9 
depicts the eigenvectors of the aircraft eigenspace. Tables 8 and 9 are therefore the 
design closed loop eigenvalues and right eigenvectors for this Case VI Output 
Feedback problem. In all subsequent tables, the aircraft eigenvectors are normalized 
with respect to the largest real magnitude of the aircraft elements. Table 10 shows the 
undamaged feedback gain matrix, F. Note that the function gains and filter transfer 
functions depicted in Figures 8.2 and S.3 are transformed via the modeling technique 
noted in paragraph VIII. D into the elemental values of the feedback matrix. F. in 
Table 10. Each column represents the feedback gain values from the sensed variable to 
the respective control surface. For example the static gain value between pitch rate. q. 
and the right stabilator, rst. is 0.214. 

Table 11 numerically depicts the euclidean and sc -norms of the right and left null 
vectors. c r - and £/, of the eighteen slow modes. The residual sums, RES r and RES/, are 
the sums of the eighteen individual euclidean norms. Note that RES r is significantly 
less than RES/ and that the primary modal contributors to RES/ are the short period 
and phugoid modes. It is interesting to note that at the outset, the bad actors with 
respect to the left null spaces are longitudinal in nature. 

Upon examining Table 11. one would initially establish a collective numerical 
threshold on the null space membership criteria of 0.07483S and 3.3046 respectively. A 
significant unknown, however. is the magnitude of the conservative nature of ’ the 
euclidean norm. A collective measure of null space residuals may indeed be too harsh 
a criterion on eigenvector acceptance. Additionally, as noted previously, eigenvector 
orientation is a significant input with regard to acceptance'criteria when analyzing such 
a high order system. For example, a particular eigenvector may satisfy a null space 
requirement but have undesired modal orientation. An undesired orientation results in 
responses which may or may not be acceptable. The design problem therefore becomes 
two fold. Null space constraints and proper orientation of the right eigenvector must 
simultaneously occur to ensure full performance recovery. Performance recovery could 
be accomplished in several ways. One procedure would be to augment the current 
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Figure S.5 F/A-18A Undamaged Longitudinal Response. 
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objective function to include a performance recovery factor. One may define such a 
factor as a norm of the difference between the desired right eigenvector, x-, and the 
right eigenvector,. x- + ox- which results subsequent to reorienting the left eigenvector. 
In this way. the augmented objective function becomes. 

OBJ aug = || C fl \\ 2 + || 6x- 1| 2 (eqn8.13) 

By performing a minimization of equation S.13. one would drive towards the. 
undamaged performance, Xj. and the respective undamaged eigenvalue location, Xj. 
Another procedure which would be significantly less expensive from a computational 
standpoint would involve comparing the optimized right eigenvector modes with those 
which are known to give satisfactory performance but possibly unsatisfactory 
eigenvalue placement. In other words, subsequent to minimizing a norm of the left 
null vector, E^, examine the reoriented right eigenvectors for structures which impede 
performance recovery. For those which impede recovery, drive the designed right 
eigenvectors to the proper orientation. This will possibly result in penalties with regard 
to invoking an eigenvalue location but will enhance the system performance. In this 
way, the designer must trade between modal performance recovery (xj) and speed of 
transient response (Xj). One must therefore observe the vectors individually with 
regard to both residual measurement and orientation before making prudent 
judgements on the acceptability of the eigenvector. 

1. Case A 

Symmetric degradation of the stabilators was simulated by modifying the 
appropriate elements of the gain matrices to reflect a 25% loss in control effectiveness. 
Figures S.6 and 8.7 depict the damaged pitch attitude and pitch rate responses. 
Although a relatively benign perturbation to the undamaged response, this case served 
a valuable role in software debug of RECOXF, ERSPACE.ELSPACE, and in the 
modifications to the [Ref. 39] code. Table 12 depicts the damaged eigenvalues for Case 
A. Table 13 shows the resulting perturbed aircraft eigenstructure for Case A. The 
primary eigenstructure perturbation for Case A is noted in the slower phugoid (X = 
-0.4123) and the short period modes. For the slower phugoid mode, the eigenvalue 
shifted to the right by 19.4% with no significant change in the eigenvector. The 
perturbed short period mode became less damped and more oscillatory as the real part 
of the eigenvalue moved to the right by 16.7% and up the imaginary axis by 9.4%. 
The cumulative result is a lag in both the pitch attitude and pitch rate responses. 
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TABLE 8 



F A-1SA UNDAMAGED C-LOOP E I GEN VA LUES: M = 0.6 ALT = 



Z- Plane Roots S- Plane Roots Mode 



1.0000 


0.0000J 


0.000 


O.OOOJ 


Filter 


1 .0000 


0.0000J 


0.000 


0.000J 


Filter 


1.0000 


0.0000J 


0.003 


O.OOOJ 


Spiral 


1.0000 


O.OOOOJ 


0.004 


O.OOOJ 


Filter 


0.999S 


0.0000J 


-0.0 1 - 


O.OOOJ 


Phtigoid 


0.9936 


O.OOOOJ 


-0.511 


O.OOOJ 


Phugoid 


0.9S76 


O.OOOOJ 


-1.000 


O.OOOJ 


Filter 


0.9S56 


O.OOOOJ 


-1.159 


O.OOOJ 


Filter 


0.9S21 


O.OOOOJ 


-1.443 


O.OOOJ 


Filter 


0.9753 


O.OOOOJ 


-2.000 


O.OOOJ 


Filter 


0.9753 


O.OOOOJ 


-2.000 


O.OOOJ 


Filter 


0.9753 


O.OOOOJ 


-2.004 


O.OOOJ 


Filter 


0.9643 


O.OOOOJ 


-2.904 


O.OOOJ 


Roll 


0.9' 64 


-0.03 19 J 


-l.S'O 


-2.615.1 


Dutch Roll 


0.9 '64 


0.03 19 J 


-1.870 


2.615.1 


Dutch Roll 


0.9~14 


-0.0 32, SJ 


-2.279 


-2.7 02 J 


Short Period 


0.9714 


0.0 32 6 J 


-2.279 


2.702.1 


Short Period 


0.9535 


O.OOOOJ 


-3.8-11 


O.OOOJ 


Filter 


0.8413 


O.OOOOJ 


-13.829 


O.OOOJ 


AoA Sensor 


0.7619 


O.OOOOJ 


-21.757 


O.OOOJ 


Filter 


0.7109 


O.OOOOJ 


- 27.292 


O.OOOJ 


LE Flap Actuator 


0. 7 1 06 


O.OOOOJ 


-27.330 


O.OOOJ 


LE Flap Actuator 


0.6988 


-0.2220J 


-24.S21 


-24.61 2J 


TE Flap Actuator 


0.69SS 


0.2220J 


-24.821 


24.6 12J 


TE Flap Actuator 


0.7660 


0.3195J 


-14.909 


31.61 6 J 


Stab Actuator 


0.7660 


-0.3195J 


-14.909 


-31.61 6 J 


Stab Actuator 


0.69S5 


0.2223J 


-24.S49 


24.65 1J 


TE Flap Actuator 


0.69S5 


-0. 2223 J 


-24.849 


-24.65 1J 


TE Flap Actuator 


0.7597 


-0.3344J 


-14.903 


-33.167J 


Stab Actuator 


0.7597 


0.3 3.44 J 


-14.903 


33. 167J 


Stab Actuator 


0.4907 


-0.061 3J 


-56.336 


-9.942J 


Ail Actuator 


0.4907 


0.06 13J 


-56.336 


9.942J 


Ail Actuator 


0.4120 


O.OOOOJ 


-70.946 


O.OOOJ 


Filter 


0.4267 


0.3259J 


-49.749 


52.1S7J 


Ail Actuator 


0.4267 


-0.3259J 


-49.749 


-52.1S7J 


Ail Actuator 


0.4191 


-0.3947J 


-44.173 


-60.434J 


Rud Actuator 


0.4191 


0.3947J 


-44.173 


60.434J 


Rud Actuator 


0.41S1 


-O.3950J 


-44.250 


-60.OO5J 


Rud Actuator 


0.4181 


0.3950J 


-44.250 


60.555J 


Rud Actuator 


0.3601 


O.OOOOJ 


-81.707 


O.OOOJ 


LE Flap Actuator 


0.3601 


O.OOOOJ 


-SI. 70S 


O.OOOJ 


LE Flap Actuator 


0.2255 


-0.4030J 


-61.808 


-S4.S44J 


Stab Actuator 


0.2255 


0.4030J 


-61. SOS 


S4.S44J 


Stab Actuator 


0.2238 


0.40 19J 


-62.114 


85.0 16J 


Stab Actuator 


0.2238 


-0.40 19J 


-62.114 


-S5.016J 


Stab Actuator 


0.1226 


O.OOOOJ 


- 167.8S5 


O.OOOJ 


Rate Gvro Sensor 


0.1216 


O.OOOOJ 


-16S.5S2 


O.OOOJ 


Rate Gvro Sensor 


0.1208 


O.OOOOJ 


-169.101 


O.OOOJ 


Rate Gyro Sensor 


0.0042 


-0.020 3J 


-309.929 


-141.91 0 J 


Accel Sensor 


0.0042 


0.0203J 


-309.929 


141.91 0 J 


Accel Sensor 


0.0017 


-0.008 2J 


-3S2.321 


-109.192J 


Accel Sensor 


0.0017 


0.00S2J 


-382.321 


109.192J 


Accel Sensor 


0.0033 


O.OOOOJ 


-457.797 


O.OOOJ 


Rate Gvro Sensor 


0.0032 


O.OOOOJ 


-460.647 


O.OOOJ 


Rate Gvro Sensor 


0.0031 


O.OOOOJ 


-461.227 


O.OOOJ 


Rate Gyro Sensor 



10K 
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TABLE 9 

F/A-1SA UNDAMAGED AIRCRAFT EIGENSTRUCTURE 



Spiral Phitgoid Phugoid 



X = 0.0029 + 0.0000J 


>. = -0.0173 


+ O.OOOOj 


X = -0.51 15 + O.OOOOJ 


0.0000 


0.0000J 


-1.0000 


O.OOOOJ 


-0.3443 


O.OOOOJ 


0.0000 


0.0000J 


0.0559 


O.OOoOJ 


1.0000 


O.OOOOJ 


0.0000 


0.0000J 


0.0000 


O.OOOOJ 


0.0016 


o.ooooj 


0.0000 


o.ooooj 


0.0000 


O.OOOOJ 


-0.003 1 


0.00< >0.1 


0.7764 

0.0494 


0.00O0J 


o.oooo 


O.OOOOJ 


0.0000 


O.OOOOJ 


O.OOOOJ 


o.oooo 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0029 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


1.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


Roll 




Dutch Roll 




Dutch Roll 




k = -2.9042 




X = -1.8703 


-2.6152J 


\ - -1.8703 


+ 2.6152J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.o< )onj 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


-1.0000 


O.OOOOJ 


-1.0000 


- 1.261 0 J 


-1.0000 


1.2610J 


-0.0037 


O.OOOOJ 


0.0026 


-0.00 75 J 


0.0026 


0.0075 J 


-0.047S 


O.OOOOJ 


0.0049 


0.0166J 


0.0049 


-0.0166J 


0.0165 


O.OOOOJ 


-0.005 1 


-0.00 1SJ 


-0.0051 


0.00 1SJ 


Short Period 


Short Period 






\ = -2.2794- 


2.7016J 


\ = -2.2794 + 2.7016J 






0.0183 


-0.003 1J 


0.0183 


0.003 1J 






- 1.0000 


-1.773SJ 


- 1.0000 


1.7738J 






-0.0055 


0.007SJ 


-0.0055 


-0.0078J 






-0.0007 


-0.0026J 


-0.0007 


0.0026J 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 







The initial test performed on the desired eigenstructure was the right null 
space constraint. Table 14 depicts the null space residuals for Case A. Note that 
RES r is 0.036547 for this case which compares favorably with that of the undamaged 
(or nominal) value. Therefore the desired right eigenvectors were considered members 
of the Case A perturbed right null spaces and no reorientation was considered 
necessary. When the left eigenvectors were tested for left null space membership, a 
value of RES; = 125.11 was obtained. When compared with a value of 3.3046. it was 
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TABLE 10 

F A- ISA UNDAMAGED FEEDBACK GAIN MATRIX 





0 


NZ 


A A 


R 


RST 


0.2 PE -00 


-0.13 IE -00 


O.OOOE-OO 


O.OOOE - 1 - 00 


LST 


0.214E — 00 


-0.131E + 00 


O.OOOE + 00 


O.OOOE - 00 


RLE 


0.000E - 00 


O.OOOE - 00 


0.209E-01 


O.OOOE - Oft 


LLE 


O.OOOE + 00 


O.OOOE + 00 


0.209E-01 


O.OOOE - Oft 


R 1 E 


0.000E i- 00 


O.OOOE + 00 


0.1 10E-01 


O.OOOE - 00 


LTE 


0.000E - 00 


O.OOOE + 00 


0.1 10E-01 


o.o* )0E — 00 


RA 


O.OOOE + 00 


O.OOOE - 00 


O.OOOE + 00 


O.OOOE + 00 


LA 


0.000E + 00 


O.OOOE + 00 


O.OOOE - 00 


O.OOOE- 1 - 00 


RR 


0.000E - 00 


O.OOOE + 00 


O.OOOE - 00 


0.6S9E - 00 


LR 


0.000E + 00 


O.OOOE + 00 


O.OOOE + 00 


0.6S9E — 00 




P 


AT 


Cl 


C2 


RST 


0.240E-01 


O.OOOE-OO 


-0.257E-02 


0.748E-03 


LST 


0.240E-01 


O.OOOE + 00 


-0.257E-02 


0.74SE-03 


RLE 


0.000E - 00 


O.OOOE - 00 


O.OOOE - 00 


O.OOOE - 00 


LLE 


0.000E + 00 


O.OOOE-OO 


O.OOOE-OO 


O.OOOE-OO 


RTE 


0.192E-01 


O.OOOE - 00 


O.OOOE — 00 


0:000 e + oo 


LTE 


-0. 192E-01 


O.OOOE + 00 


O.OOOE - 00 


O.OOOE - 00 


RA 


0.600E-0 1 


O.OOOE + 00 


O.OOOE-OO 


O.OOOE + 00 


LA 


-0.600E-01 


O.OOOE-OO 


O.OOOE + 00 


O.OOOE + 00 


RR 


0.3SSE - 00 


0. 1 6oE — 02 


O.OOOE + 00 


O.OOOE - 00 


L R 


0.3SSE + 00 


0.165E-02 


O.OOOE - 00 


O.OOOE + 00 




C3 


C4 


C5 


C<5 


RST 


-0. 191E-01 


-0.211 E + 00 


-0.383E-01 


O.OOOE + 00 


LST 


-0. 191E-01 


-0.21 1 E — 00 


-0.3S3E-01 


O.OOOE + 00 


RLE 


O.OOOE + 00 


O.OOOE-OO 


O.OOOE + 00 


0.412E-01 


LLE 


0.000E - 00 


O.OOOE - 00 


O.OOOE + 00 


0.412E-01 


RTE 


O.OOOE — 00 


O.OOOE-OO 


O.OOOE + 00 


O.OOOE-OO 


LTE 


O.OOOE + 00 


O.OOOE - 00 


O.OOOE + 00 


O.OOOE-OO 


RA 


0.000E-00 


O.OOOE + 00 


O.OOOE-OO 


O.OOOE-OO 


LA 


0.000E — 00 


O.OOOE-OO 


O.OOOE + 00 


O.OOOE + 00 


RR 


O.OOOE — 00 


O.OOOE - 00 


O.OOOE — 00 


O.OOOE + 00 


LR 


0.000E - 00 


O.oOOE - 00 


O.OOOE-OO 


O.OOOE-OO 




cr 


cs 


C9 


CIO 


RST 


0.000E — 00 


O.OOOE + 00 


O.OOOE - 00 


O.OOOE-OO 


LST 


O.OOOE - 00 


O.OOOE-OO 


O.OOOE + 00 


O.OOOE - 00 


RLE 


O.OOOE-OO 


O.OOOE - 00 


O.OOoE + 00 


O.OOOE + 00 


LLE 


O.OOOE - 00 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE - 00 


RTE 


0.219E-01 


O.OOOE - 00 


O.OOOE + 00 


O.OOOE-OO 


LTE 


0.219E-01 


O.OOOE-OO 


O.OOOE + 00 


O.OOOE - 00 


RA 


O.OOOE - 00 


O.OOOE J - 00 


O.OOOE + 00 


O.OOOE + 00 


LA 


O.OOOE-OO 


O.OOOE - 00 


O.OOOE + 00 


O.OOOE - 00 


RR 


O.OOOE-OO 


-0.856E-02 


-0.494E-02 


O.OOOE - 00 


LR 


O.OOOE + 00 


-0.S56E-02 


-0.494E-02 


O.OOOE + 00 




Cl! 


C/2 






RST 


O.OOOE + 00 


O.OOOE + 00 






LST 


O.OOOE - 00 


O.OOOE + 00 






RLE 


O.OOOE + 00 


O.OOoE + 00 






LLE 


O.OOOE + 00 


O.OOOE + 00 






RTE 


O.OOOE + 00 


O.OOOE + 00 






LTE 


O.OOOE + 00 


O.OOOE + 00 






RA 


O.OOOE + 00 


O.OOOE + 00 






LA 


O.OOOE + 00 


O.OOOE + 00 






RR 


0.317E-02 


O.OOOE + 00 






RR 


0.317E-02 


O.OOOE + 00 
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TABLE 11 

PA- ISA NOMINAL NULL SPACE RESIDUALS 



Mods 



ShPer 0. 
ShPer 0. 
PHD 0. 
DRoll 0. 
DRoll 0. 
FPhug 0. 
Y3D 0. 
Roll 0. 
SPhug 0. 
Filtr 0. 
Filtr 0. 
Filtr 0. 
Filtr 0. 
Filtr 0. 
Filtr 0. 
Soira 0. 
Filtr 0. 
Filtr 0. 



RES r =y||c ri || 2 = 0. 74838E-01 
RES 1 =V||£ 1 i || 2 = 0. 33046E+01 



'n 1 



2-Norm 



10646E-04 
10646E-04 
10902E-04 
30222E-02 
30222E-02 
3 6685E-05 
4392 6E-05 
53555E-03 
38242E-06 
53746E-04 
33415S-03 
16079E-04 
28549E-11 
14593E- 12 
4593 5E-03 
24578E- 10 
48253E- 12 
00000E+00 



so -Norm 

0. 7 1796E-05 
0. 71796E-05 
0. 7 6087E-05 
0. 29889E-02 
0. 29839E-02 
0. 23228E-05 
0. 29008E-05 
0. 52 682E-03 
0. 2 6453E-06 
0. 40515E-04 
0. 32759E-03 
0. 13604E-04 
0. 20861E-11 
0. 96229E-13 
0. 45639E-03 
0. 17275E-10 
0. 38527E-12 
0. 00000E+00 



2 -Norm 

0. 52883E+00 
0. 52883E+00 
0. 14053S-01 
0. 41392E-03 
0. 41392E-03 
0. 1 6863E+00 
0. 76362E-01 
0. 3 1910E-03 
0. 12615E+01 
0. 10055E-03 
0. 49189E-03 
0. 69333E+00 
0. 133 64E-03 
0. 23156E-01 
0. 80447E-02 
0. 00000E+00 
0. 00000E+00 
0. 00000E+00 



so norm 

0. 11033E-03 
0. 1 103 3E-03 
0. 44177E-05 
0. 70056E- 13 
0. 70056E-13 
0. 33777E-04 
0. 13423E-04 
0. 17306E-12 
0. 12600E+01 
0. 110795-14 
0. 14597E- 14 
0. 12940E-05 
0. 33 852E- 15 
0. 56116E-08 
0. 65734E- 15 
0. 00000E+00 
0. 00000E+00 
0. 00000E+00 



decided that reorienting the left eigenvectors was required. In particular, note that the 
source of left residual error was predominantly due to the short period, phugoid, and 
two of the filter modes. PHD and Y3D. PHD is a longitudinal filter which sends 
angle of attack data to the collective flap commands. The Y3D is a lateral feedback 
filter which smooths yaw and roll rate feedback to the synchronous rudder commands. 
Note that the lateral aircraft modes satisfy both right and left perturbed null space 
constraints as might be expected since the degradation is in the longitudinal surfaces 
only. Note additionally that the three modes at the bottom of Table 14 have true zero 
left residuals just as in the undamaged case. This depicts the dependence of the 
residual on the open loop parameters (A.B.C) and show that for some eigenvalues, the 
null space constraints will always be satisfied regardless of the orientation of the 
eigenvector. The converse is also true, some eigenvalues will always invoke a null 
space residual. The key is to orient their vectors as close as possible to the desired 
orientation while minimizing the residual error. 
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PITCH ATTITUDE DEC 

0.0 2.0 4.0 6.0 0.0 10.0 12.0 14.0 16.0 10.0 



c 




Figure S.6 Case A Damaged Pitch Attitude Response. 
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PITCH RATE DEG/SEC 

0.0 1.0 2.0 3.0 4.0 5.0 6.0 



o 




Figure 8.7 Case A Damaged Pitch Rate Response. 
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Minimization of the euclidean norm of the left null vector, • for each of 
these four modes was performed in the following way. All fifty-five elements of the left 
eigenvector were allowed to vary ±0.001 of their initial value to provide freedom to 
rotate as close as possible to the null space invoked by the fixed eigenvalue. ADS was 
then used to minimize II c /ll 2 individually for each of the four modes. Upon completion 
of the minimization procedure, final values of RES r = 0.043691 and RES^ = 37.117 
were obtained. Note that the right residual sum maintained an acceptable value during 
I'ninimization of the left null vector norms. This is demonstrative of the higher 
dimension of the right null space. (d(E r ) = p = 45) as compared with that of the left 
null space (d(E^) = q = 37). Subsequent to the minimization, the fast eigenspace was 
preserved by inserting the undamaged elements 9-43,45, and 47 into the 37 fast modes 
of the right eigenvector matrix. The reconfigured feedback gains were then computed 
and responses were plotted. In essence, this is a reduced order design method and 
proved successful for the symmetric degradation cases. 

Table 15 shows the reconfigured feedback gains for Case A. Note that the 
reconfigured gains invoke deflection commands to the leading and trailing edge flaps 
via pitch rate, normal acceleration, and angle of attack feedback paths. Additionally, 
feedback gains are now present in the angle of attack to stabilator feedback path. 
Note that these paths are not present in the longitudinal control model of Figure S.3. 
This solution therefore would require a modification to the aircraft control system. 
Additionally there are feedback gains between selected filter states and the 
leading trailing edge surfaces. These particular filter states correspond to the pitch rate 
to collective stabilator. normal acceleration to collective stabilator. pitch stick to 
collective stabilator, and angle of attack to collective leading flap feedback filters. This 
longitudinal reconfiguration was implicitly invoked by the design technique described 
above. Table 16 depicts the reconfigured eigenstructure for Case A. Note the slower 
phugoid (/. = -0.4616) has been shifted to 90.24% of the undamaged value which is a 
9.59% improvement over the damaged eigenvalue location. Also noteworthy is the 
weak modal coupling to forward and vertical velocity in the spiral mode. Similarly, 
there is weak coupling to side velocity in the reconfigured short period. Figures S.S 
amd S.9 show the reconfigured pitch attitude and pitch rate responses. Note that the 
undamaged responses were not exactly regained, but the reconfigured responses show 
positive signs toward performance recover}'. This is indicative of satisfying the null 
space constraints while not invoking a constraint on the orientation of the right 
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CASE A ( 


TABLE 12 

25% SYMMETRIC) DAMAGED C-LOOP EIGENVALUES 


Z- Plane Roots 


S- Plane Roots 


Mode 


1.0000 


O.OOOOJ 


0.000 


O.OOOJ 




1.0000 


0.0000J 


0.000 


0 . 000.1 




1. 00 00 


O.OOOOJ 


0.003 


O.OOOJ 


Spiral 


1 .0000 
0.9998 


O.OOOOJ 


0.003 


O.OOOJ 


O.OOOOJ 


-0.019 


O.OOOJ 


Phugoid 


0.9949 


O.OOOOJ 


-0.412 


O.OOOJ 


PI nig oid 


0.9S76 


o.ooooj 


- 1.000 


O.OOOJ 


0.9S63 


O.OOOOJ 


-1.104 


o.oooj 




0.9S21 


O.OOOOJ 


-1.443 


O.OOOJ 




0.9753 


O.OOOOJ 


-2.000 


O.OOOJ 




0.9753 


O.OOOOJ 


-2.000 


O.OOOJ 




0.9753 


O.OOOOJ 


-2.004 


O.OOOJ 




0.9645 


O.OOOOJ 


-2.S92 


O.OOOJ 


Roll 


0.9764 


-0.0519.1 


-1.869 


-2.615.1 


Dutch Roll 


■0.9764 


0.03 19 J 


-1.869 


2.6I5J 


Dutch Roll 


0.9575 


O.OOOOJ 


-3.477 


O.OOOJ 




0.9759 


-0.036 U 


-1.899 


- 2.95 6 J 


Short Period 


0.9759 


0.0361.1 


-1.899 


2.95 6 J 


Short Period 


0.S406 


O.OOOOJ 


-13.886 


O.OOOJ 




0.7519 


O.OOOOJ 


-22.S09 


O.OOOJ 




0.7109 


O.OOOOJ 


- 27.292 


O.OOOJ 




0.7106 


O.OOOOJ 


-27.328 


O.OOOJ 




0.69S8 


-0.2220J 


-24.S21 


-24.6 12J 




0.69SS 


0.2220J 


-24.821 


24.6 12J 




0.6985 


-0.2223J 


-24.849 


-24.65 1J 




0.69S5 


0.2223J 


-24.S49 


24.65 1J 




0.7642 


0.3236.1 


-14.915 


32.043J 




0.7642 


-0.3236J 


-14.915 


-32.043J 




0.7596 


-0.3344J 


-14. 90S 


-33.175J 




0.7596 


0.3344J 


-14. 90S 


33:1 75J 




0.4907 


-0.06 13J 


-56.335 


-9.93SJ 




0.4907 


0.06 13J 


-56.335 


9.93SJ 




0.4119 


O.OOOOJ 


-70.956 


O.OOOJ 




0.4267 


0.3259.1 


-49.749 


52.1S7J 




0.4267 


-0.3259J 


-49.749 


-52.187J 




0.4191 


0.3947J 


-44.173 


60.434J 




0.4191 


-0.3947J 


-44.173 


-60. 4 34 J 




0.41S1 


0.3950J 


-44.250 


60.55.5J 




0.4 IS 1 


-0.3950J 


-44.250 


-60.555J 




0.3601 


O.OOOOJ 


-S 1.707 


O.OOOJ 




0.3601 


O.OOOOJ 


-SI. 70S 


O.OOOJ 




0.2251 


-0.4027J 


-61.SSS 


-S4.SSSJ 




0.2251 


0.4027J 


-61.SSS 


S4.SSSJ 




0.2238 


0.40 19J 


-62.117 


85.0 1SJ 




0.2238 


-0.40 19J 


-62.117 


-S5.01SJ 




0.1226 


O.OOOOJ 


-167.SS2 


O.OOOJ 




0.1219 


O.OOOOJ 


-16S.385 


O.OOOJ 




0.1208 


O.OOOOJ 


-169.101 


O.OOOJ 




-0.0042 


-0.0203J 


-309.929 


-141.91 0 J 




-0.0042 


0.0203J 


-309.929 


141.91 0 J 




0.0017 


-0.0083J 


-3S1.5S7 


-109.565J 




0.0017 


0.00S3J 


-381.587 


109.565J 




0.0032 


O.OOOOJ 


-45S.S1S 


O.OOOJ 




0.0032 


O.OOOOJ 


-460.648 


O.OOOJ 




0.0031 


O.OOOOJ 


-461.242 


O.OOOJ 





101 



TABLE 13 



CASE A ( 25 % S Y M M ET R I C DAMAGE) AIRCRAFT 
EIGENSTRUCTURE 



Spiral 

X = 0.0029 

0.0000 0.0000J 

0.0000 0.0000J 

0.0000 O.OOOOJ 

0.0000 0.00001 

-0.7765 O.OOOOJ 

-0.0494 O.OOOOJ 

-0.0029 O.OOOOJ 

-1.0000 O.OOOOJ 

Roll 

X = -2.S919 

0.0000 O.OOOOJ 

0.0000 O.OOOOJ 

0.0000 O.OOOOJ 

0.0000 O.OOOOJ 

1.0000 O.OOOOJ 

0.0037 O.OOOOJ 

0.0475 O.OOOOJ 

-0.0164 O.OOOOJ 

Short Period 



Pliiigoid 




X = -0.0 187 + O.OOOOJ 


1.0000 


O.OOOOJ 


-0.0564 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


Dutch Roll 




X = -1.8691- 


-2.6153J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


1.0000 


-60.474J 


0.2549 


-0.1567J 


-0.2563 


0.5983J 


-0.1051 


-0.173 IJ 


Short Period 



Phugoid 




>. = -0.4123- 


-O.OOOOJ 


0.4938 


O.OOOOJ 


- 1.0000 


O.OOOOJ 


-0.0016 


O.OOOOJ 


0.0039 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


Dutch Roll 




X = -1.8691 + 2.6153J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


1.0000 


60.474J 


0.2549 


0.1567J 


-0.2563 


-0.5983J 


-0.1051 


0. 173 1J 



X = -1.S994-2.9561J 

0.0056 -0.00S3J 

-1.0000 -0.4514J 

-0.0007 0.0052J 

-0.0011 -0.00 10J 

0.0000 O.OOOOJ 

0.0000 O.OOOOJ 

0.0000 O.OOOOJ 

0.0000 O.OOOOJ 



X = -1.8994 + 2.956 1J 

0.0056 0.00S3J 

-1.0000 0.45 14J 

-0.0007 -0.0052J 

-0.0011 0.00 10J 

0.0000 O.OOOOJ 

0.0000 O.OOOOJ 

0.0000 O.OOOOJ 

0.0000 O.OOOOJ 



eigenvector. Although the reconfigured gains provide positive steps toward regaining 
the undamaged response, full performance recover)' was not obtained due to the 
undesirable orientation of the longitudinal right eigenvectors. 

2. Case B 

Figures S.10 and 8.11 show the damaged longitudinal responses for the 50% 
symmetric degradation case. Tables 17 and IS depict the perturbed full order and 
aircraft eigenstructures respectively. Table 19 shows the null space residuals. Note 
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TABLE 14 

CASE A NULL SPACE RESIDUALS 



Mode 



ShPer 

ShPer 

PHD 

DRoll 

DRoll 



FPhug 

Y3D 

Roll 

SPhug 

Filtr 

Filtr 

Filtr 

Filtr 

Filtr 

Filtr 

Spi ra 

Filtr 

Filtr 



RES r =V||c ri || = 0. 
RES 1 =V||c 1 .|| = o. 



2 -Norm 

0. 34926E-02 
0. 3492 6E-02 
0. 29547S-02 
0. 43344E-02 
0. 43344E-02 
0. 19289E-02 
0. 2 1797E-02 
0. 43476E-02 
0. 29235E-03 
0. 68759E-04 
0. 14587E-02 
0. 72043E-02 
0. 28572E-11 
0. 25527E-12 
0. 45755E-03 
0. 89445E- 10 
0. 49205E- 12 
0. 00000E+00 



20-Norm 

0. 3 1823S-02 
0. 3 1823E-02 
0. 2 6955E-02 
0. 36901E-02 
0. 36901E-02 
0. 17545E-02 
0. 19839E-02 
0. 3 7847E-02 
0. 2 6580E-03 
0. 52844E-04 
0. 13553E-02 
0. &5518E-02 
0. 20878E- 11 
0. 17498E- 12 
0. 45448E-03 
0. 78303E- 10 
0. 38527E-12 
0. 00000E+00 



36547E-01 



12511E+03 



H c li 


II 2 


2 -Norm 


0. 33484E+02 


0 . 


0. 33484S+02 


0 . 


0. 37790E+02 


0 . 


0. 90522E-02 


0 . 


0. 90522S-02 


0 . 


0. 10999E+02 


0 . 


0. 68938E+01 


0 . 


0. 10488E+00 


0 . 


0. 15057E+01 


0 . 


0. 20671E-01 


0 . 


0. 11536E-01 


0 . 


0. 69335E+00 


0 . 


0. 27317E-01 


0 . 


0. 23157E-01 


0 . 


0. 51955E-01 


0 . 


0. 00000E+00 


0 . 


0. 00000E+00 


0 . 


0. 00000E+00 


0 . 



20 norm 

23673E+02 
23673E-02 
2672 1E+02 
70056S- 13 
70056E- 13 
77762E+01 
48743E+01 
17306E- 12 
12600E+01 
11079S-14 
14597E- 14 
12940E-05 
33852E-15 
56115E-08 
65734E-15 
00000E+00 
00000E+ 00 
00000E+00 



that the bad actors are again the short period, fast phugoid, and the same filter modes 
as Case A. Additionally note the doubling of the residual sums from Case A to Case 
B. The design procedure noted above for Case A was repeated for this case. Tables 20 
and 21 show the reconfigured feedback gains and aircraft eigenstructure for Case B. 
Figures 8.12 and 8.13 show the reconfigured responses. 

The lack of full performance recovery is more clearly demonstrated in these 
reconfigured responses. Note that although the reconfigured phugoid (X = -0.3699) 
eigenvalue is a 26.25% improvement over the damaged eigenvalue position (X = 
-0.293), it is 27.73% slower than the undamaged value of -0.511. The reconfigured 
short period eigenvalue (X = -1.505 ±j3.013) has not been shifted and has less modal 
coupling to vertical velocity (-1.0000 ±j0.8656) than the undamaged short period 
modes (-1.0000 ±j 1.1 7738). The response curves also indicate that although the null 
space constraints have been met, performance has not been fully recovered due. in 
part, to the reorientation of the phugoid and short period right eigenvectors. 
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TABLE 15 

RECONFIGURED FEEDBACK GAINS FOR CASE A DAMAGE 





s 0 




NZ 


A A 




R 


RST 


0.214E-00 


-0.131 


E - 00 


0.459E-03 


O.OOOE - 00 


LST 


0.214E + 00 


-0. 1 3 1 E — 00 


0.459E-03 


O.OOOE - 00 


RLE 


-0.355E-O2 


0."45 


E-02 


0.267E-01 


O.OOOE + 00 


LLE 


-O.355E-02 


0.745E-02 


0.267E-01 


O.OOoE -00 


RTE 


0.60SE-02 


-0.959E-02 


0.462E-02 


O.OOOE - 00 


LTE 


0.60SE-02 


-0.959E-02 


0.462E-02 


O.OOOE + 00 


RA 


O.OOOE + 00 


O.OOOE -00 


O.OOOE + 00 


O.OOOE -00 


LA 


0.O00E * 00 


O.OOOE - 00 


O.OOOE -00 


O.OOOE- 00 


RR 


O.OOOE - 00 


O.OOOE + 00 


O.OOOE - 00 


0.6-S9E + 00 


LR 


O.OOOE - 00 


O.OOOE + 00 


O.OOOE + 00 


0.6S9E + 00 




P 




AY 


Cl 




C2 


RST 


0.240E-01 


O.OOOE - 00 


-0.261E-02 


0.747] 


E-03 


LST 


-0.240E-01 


O.OOOE + 00 


-0.261 E-02 


0.74" 


E-03 


RLE 


O.OOOE + 00 


O.OOOE - 00 


-0.502E-03 


0.000 


E + 00 


LLE 


O.OOOE - 00 


O.OOOE + 00 


-0.-502E-03 


0.006 


E + 00 


RTE 


0. 192E-01 


-0.264E-03 


0.531E-03 


0.000 


E + 00 


LTE 


-0.192E-01 


O.OOOE + 00 


0.53 IE-03 


0.000 


E + 00 


RA 


0.600E-01 


O.OOOE -00 


O.OOOE - 00 


0.000 


E + 00 


LA 


-0.600E-01 


O.OOOE - 00 


O.OOOE - 00 


o.ooo] 


E + 00 


RR 


0.3SSE — 00 


0.165 


E-02 


O.OOOE -00 


6.006 


E - 00 


LR 


0.3SSE + 00 


0.165E — 02 


O.OOOE + 00 


0.0001 


E - 00 




C3 




C4 


C5 




C6 


RST 


-0. 194E-01 


-0.210E-00 


-0.3S7E-01 


O.OOOE + 00 


LST 


-0. 194E-01 


-0.210E + 00 


-0.3S7E-01 


O.OOOE + 00 


RLE 


-0.373E-02 


0.941E-02 


-0.746E-02 


0.4 13 E-01 


LLE 


-0.373E-02 


0.941E-02 


-0.746E-02 


0.413E-01 


RTE 


0.395E-02 


-0.125 


E -01 


0.790E-02 


O.OOOE + 00 


LTE 


0.395E-02 


-0.125: 


E-01 


0.790E-02 


O.OOOE + 00 


RA 


O.OOOE - 00 


O.OOOE -00 


O.OOOE + 00 


O.OOOE + 00 


LA 


O.OOOE + 00 


O.OOoE - 00 


O.OOOE + 00 


O.OOOE - 00 


RR 


O.OOOE - 00 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


LR 


O.OOOE + 00 


O.OOOE - 00 


O.OOOE + 00 


O.OOOE - 00 




C7 




cs 


C9 




CIO 


RST 


O.OOOE - 00 


O.OOOE - 00 


O.OOOE - 00 


O.OOOE + 00 


LST 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


RLE 


0.436E-03 


O.OOOE - 00 


O.OOOE + 00 


O.OOOE + 00 


LLE 


0.436E-03 


O.OOOE - 00 


O.OOOE + 00 


O.OOOE + 00 


RTE 


0.2 14E-0I 


O.OOOE - 00 


O.OOOE - 00 


O.OOOE + 00 


LTE 


0.2 14E-01 


O.OOoE + 00 


O.OOOE + 00 


O.OOOE + 00 


RA 


O.OOOE - 00 


O.OOOE + 00 


6.000 E + 00 


0 . 060 E + 66 


LA 


O.OOOE - 00 


O.OOOE - 00 


O.OOOE + 00 


O.OOOE — 00 


RR 


O.OOOE — 00 


-0.S56E-02 


-0.494E-02 


O.OOOE + 00 


LR 


O.OOOE + 00 


-0.S56E-02 


-0.494E-02 


O.OOOE + 00 




Cl 1 




Cl 2 








RST 


O.OOOE + 00 


0.000 


E - 1 - 00 








LST 


O.OOOE + 00 


0.000 


E + 66 








RLE 


O.OOoE - 00 


0.000 


E - 00 








LLE 


O.OOOE + 00 


0.000 


E - 00 








RTE 


O.OOOE - 00 


o.ooo] 


E + 00 








LTE 


O.OOOE - 00 


0 . 060 ] 


E + 00 








RA 


O.OOOE - 1 - 00 


0.0001 


E + 00 








LA 


O.OOOE + 00 


0 . 000 ] 


E + 00 








RR 


0.31SE-02 


0.000 


E + 00 








LR 


0.31SE-02 


0.0001 


E + 00 
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TABLE 16 

CASE A RECONFIGURED AIRCRAFT EIGENSTRUCTURE 



Spirui 




Phugoid 




Phugoid 




X = 0.0029 




X = -0.01 S3 


+ O.OOOOJ 


X = -0.46 1 6-O.OOOOJ 


0.0047 


O.OOOOJ 


1.0000 


O.OOOOJ 


-0.4260 


O.OOOOJ 


-0.0004 


O.OOOOJ 


-0.0549 


O.OOOOJ 


1 .0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


O.0017 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


-0.0037 


O.OOuOJ 


-0.7769 


O.OOOOJ. 


0.0000 


O.OOOOJ 


-0.0002 


O.OOOOJ 


-0.0494 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


-0.0029 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


- 1.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


Roll 




Dutch Roll 




Dutch Roll 




X = -2.S919 




X = -1.8693 


-2.6152J 


X = -1.8693 


+ 2.6152J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


• 0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


- 1.0000 


O.OOOOJ 


- 1 .0000 


-0.0I30J 


- 1.0000 


0.0130J 


-0.0037 


O.OOOOJ 


-0.0026 


-0.004 2J 


-0.0026 


0.0042.1 


-0.0475 


O.OOOOJ 


0.0099 


0.0042J 


0.0099 


-0.004 2J 


0.0164 


O.OOOOJ 


-0.0029 


0.00 17J 


-0.0029 


-0.00 17J 


Short Period 


Short Period 






X = -1.8758- 


-2.929 1 J 


X = -1.S758 + 2.9291J 






-0.0222 


-0.012SJ 


-0.0222 


0.0128J 






- 1 .0000 


-2.56S6J 


- 1 .0000 


2.5686J 






0.0129 


0.00 14J 


0.0129 


-0.00 14J 






-0.0023 


-0.0029J 


-0.0023 


0.0029J 






-0.0014 


-0.00 10J 


-0.0014 


0 . 0010.1 






0.0000 


O.OOOOJ 


0.0000 


O.OOOl )J 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 






0.0000 


O.OOOOJ 


O.OoOO 


O.OOOOJ 







The design procedure for Case B was therefore modified to enhance 
performance recover}’ in the following way. Inspection of the left residual null vector, 
e^-, for the short period, phugoid. and PHD filter modes revealed that the residuals 
were predominantly due to the real part of the null vector. In order to reduce the 
norm of the residuals, the real parts of fast elements (9-43,45,47) were therefore 
unrestricted during the minimization. In this way the elements of the slow left 
eigenvector which corresponded to the faster actuator and sensor modes, were allowed 
to assume the dominant role in the orientation. Upon completion of this minimization. 
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PITCH ATT DEG 

0.0 2.0 4.0 0.0 0.0 10.0 12.0 14.0 10.0 10.0 20.0 22.0 24.0 




TIME - SECONDS 



Figure S.8 Case A Reconfigured Pitch Attitude Response. 
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PITCH RATE DEG/SEC 

0.0 1.0 2.0 3.0 4.0 5.0 6.0 



C - 



c 
d ■ 



LEGEND 

o = UNDAMAGED PITCH RATE 
x = 25% SYM DAMAGED PITCH RATE 
o = RECONFIGURED PITCH RATE 




Figure 8.9 Case A Reconfigured Pitch Rate Response. 
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final values of RES r = 0.07127 and RES/ = 72.7 were obtained. Again note the right 
residual sum, RES r , indicates that the new right eigenvectors remain in the allowable 
right null space. The fast eigenspace was inserted into the thirty-seven fast modes in a 
similar fashion as before and the reconfigured gains were recomputed. 

The resulting eigen structure revealed that performance had improved 
somewhat but additional recovery was required. The fast phugoid. short period, and 
P9D filter modes exhibited short falls when compared to the undamaged modal 
structure. As noted previously, a procedure at this point would be to compare the 
present right eigenvectors with those which give rise to performance recover} - but 
perhaps a penalty in the eigenvalue location. One such design was performed in the 
following fashion. By modifying the objective function during the ADS minimization 
to represent the absolute value of the sum of the components of the left null vector. C/j, 
a different set of right eigenvectors was computed. As these particular eigenvectors 
gave rise to a RES/ = 199.5 and RES f = 0.0066, the resulting closed loop eigenvalues 
were not exactly invoked due to the value of RES / . However, the response of the 
system exhibited better performance recover} - . Upon comparing the slow phugoid, 
short period, and P9D filter modal structures with these better performing structures, 
noted differences in the structure were evident. Therefore, the right eigenvector modes 
for the slow phugoid. short period, and P9D filter were replaced with the better 
performing vectors which gave rise to better performance recover} - . The new 
reconfigured gains and aircraft eigenstructure are shown in Tables 22 and 23. The 
responses are shown in Figures 8.14 and S.15. Note the shift of the phugoid to 
-0.43006 and the modal structure of the short period. The slow phugoid has been 
shifted to S4.1% of the undamaged value vice 72.4% in the first Case B design. This is 
a 26.8% increase over the damaged slow phugoid location vice a 15.1% increase in the 
first design. Note the improved responses in Figures 8.14 and 8.15. 

This particular method of performance recover} - is not to be taken as a 
standard by any means. It is simply one which was successful for the design problem 
at hand. Further research would entail developing a more systematic procedure for 
recovering desired performance. For example, if one were to simply insert the 
undamaged modal structures for the slow phugoid. short period, and P9D filter, 
performance would improve but at the expense of the slow eigenvalue locations. 

In summary, one converged on an allowable eigenvector set which will invoke 
eigenvalue locations via the feedback gain equation but lacks full performance recovery 
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in the short period and slow phugoid modes. Performance recovery was obtained by 
comparing modal short falls with a right eigenvector set which was known to give rise 
to better performance recovery and then inserting the better performing modal 
structures. Feedback gains were then recomputed and the responses improved. 

F. THE ASYMMETRIC DEGRADATION PROBLEM 

Asymmetric stabilator degradation was simulated by linearly decreasing only the 
right stabilator control effectiveness via appropriate modification of the gain matrix. 
Tables 24 and 25 show the perturbed full order eigenvalues and aircraft eigenstructure 
respectively. The predominant change in the location of the eigenvalues occur in the 
slower phugoid (X = - 0.464) and short period modes which is the same pattern as 
Case A. The significant difference however between Case C and the symmetric cases 
lie in the eigenvectors of the aircraft modes. Note the modal cross coupling for all the 
aircraft modes in Table 25. The significant cross coupling terms are noted as the roll 
mode coupling to vertical velocity, the short period coupling to side velocity, the spiral 
mode coupling to forward velocity, and dutch roll mode coupling to vertical velocity. 
Figures S.14 through S.17 show the resulting damaged responses to the 1.0 in 3.0 sec 
longitudinal command. The longitudinal responses are rather benign, however the 
resulting undesired bank angle and yaw rate responses are clearly depicted. This bank 
angle and yaw rate coupling was of course not present for the symmetric degradation 
cases. 

A solution method posed for this problem involves a superposition technique. 
Since the 25% symmetric case has been solved, one already has computed the gains 
which reconfigure such a system. A superposition technique would allow one to use 
the portion of these gains which would symmetrically balance the asymmetric control 
deficiency. Once the aircraft has regained its undamaged response, these balancing 
gains would then be removed and the gain values would be reset to their unperturbed 
values. The decision as to whether the aircraft had regained its undamaged 
longitudinal structure could then be based on the presence of roll or yaw. If one used, 
for example, bank angle sensing as decision criteria, one in effect has designed a roll 
detection reconfiguration controller. This type of controller was used as a solution 
technique. Note that this technique is actually a digital switch which is evident upon 
examining the reconfigured responses in Figures 8.16 through 8.19. A system 
advantage of such a controller might be that one would be required to store symmetric 
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Figure S. 10 Case B Damaged Pitch Attitude Response. 
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Figure 8.11 Case B Damaged Pitch Rate Response. 
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reconfiguration gains only. Asymmetric reconfiguration could then be invoked by a 
roll detection switch. Figures S.16 through S.17 depict the reconfigured responses 
subsequent to such a reconfiguration technique. Table 24 shows the reconfigured gains 
which are invoked during the time the aircraft is experiencing unacceptable bank 
angles. Note that the bank angle response, although oscillatory, exhibits far less 
coupling. The yaw rate response is also oscillatory and has decreased in amplitude. 
Additional research would involve investigating the origin of the oscillation and 
perform a smoothing of the responses. The important item here is that the technique 
exhibits successful regaining of the undamaged bank angle response. One would then 
be able to solve several asymmetric problems using the corresponding symmetric 
solutions. 
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TABLE 17 




CASE B( 


50% SYMMETRIC) DAMAGED C-LOOP EIGENVALUES 


Z- Plane Roots 


S-Plane Roots 




1.0000 


0.00OOJ 


0.000 


0.000J 




1.0000 


0.0000J 


0.000 


O.OOOJ 




LOO 00 


0.0000J 


0.003 


0.000.1 


Spiral 


1.0000 


O.OOOOJ 


0.003 


O.OOOJ 


0.9997 


0.0000.1 


-0.022 


O.OOOJ 


Phil °oid 


0.9963 


O.OOOOJ 


-0.293 


O.OOOJ 


Phiigoid 


0.9S76 


O.OOOOJ 


- 1.000 


O.OOOJ 


0.9S68 


O.OuOOJ 


-1.066 


O.OOOJ 




0.9S21 


O.OOOOJ 


-1.442 


O.OOOJ 




0.9753 


O.OOOOJ 


-2.000 


O.OOOJ 




0.9753 


O.OOOOJ 


-2.000 


O.OOOJ 




0.9753 


O.OOOOJ 


-2.004 


O.OOOJ 




0.9646 


O.OOOOJ 


-2.SS0 


O.OOOJ 


Roll 


0.9764 


-0.0319.1 


-I.S6S 


-2.615.1 


Dutch Roll 


0.9764 


0.03 19 J 


-IMS 


2.615.1 


Dutch Roll 


0.9595 


O.OOOOJ 


-3.306 


O.OOOJ 




0.9S04 


-0.037 5 J 


-1.527 


-3.056J 


Short Period 


0.9S04 


0.0375.1 


-1.527 


3.056J 


Short Period 


0.S403 


O.OOOOJ 


-13.922 


O.OOOJ 




0.743o 


O.OOOOJ 


-23.710 


O.OOOJ 




0.7109 


O.OOOOJ 


-27.292 


O.OOOJ 




0.7107 


O.OOOOJ 


-27.326 


O.OOOJ 




0.69SS 


-0.2220J 


-24.S2I 


-24.6 12J 




0.69SS 


0.2220J 


-24.S21 


24.6 12J 




0.69S5 


-0.2223J 


-24.S48 


-24.652J 




0.69S5 


0.2223J 


-24.S4S 


24.652J 




0.7625 


-0.3274J 


-14.920 


-32.447J 




0.7625 


0.3274J 


-14.920 


32.447J 




0.7595 


0.3345J 


-14.914 


33.1S3J 




0.7595 


-0.3345J 


-14.914 


-33.1S3J 




0.4907 


-0.06 12J 


-56.334 


-9.934J 




0.4907 


0.061 2J 


-56.334 


9.934J 




0.4119 


O.OOOOJ 


-70.965 


O.OOOJ 




0.4267 


0.3259J 


-49.749 


52. 1S7J 




0.4267 


-0.3259J 


-49.749 


-52.1S7J 




0.4191 


0.3947J 


-44.173 


60.434J 




0.4191 


-0.3947J 


-44.173 


-60.434J 




0.41S1 


-0.3950J 


-44.250 


-60.555J 




0.41 SI 


0.3950J 


-44.250 


60. 555 J 




0.3601 


O.OOOOJ 


-SI. 707 


O.OOOJ 




0.3601 


O.OOOOJ 


-SI. 70S 


O.OOOJ 




0.2247 


0.4024J 


-61.967 


S4.933J 




0.2247 


-0.4024J 


-61.967 


-84.933J 




0.223S 


0.40 19J 


-62.120 


S5.019J 




0.2238 


-0.40 19J 


-62.120 


-S5.019J 




0.1226 


O.OOOOJ 


-167. S7S 


O.OOOJ 




0.1222 


O.OOOOJ 


-16S.188 


O.OOOJ 




0. 1 20S 


O.OOOOJ 


-169.101 


O.OOOJ 


. 


-0.0042 


-0.0203J 


-309.929 


-141.91 0 J 




-0.0042 


0.0203J 


-309.929 


141.91 0 J 




0.0017 


0.00S4J 


-3S0.S71 


109.936J 




0.0017 


-0.00S4J 


-3S0.S7 1 


-109.936J 




0.0032 


O.OOOOJ 


-459. S06 


O.OOOJ 




0.0032 


O.OOOOJ 


-460.650 


O.OOOJ 




0.003 1 


O.OOOOJ 


-461.257 


O.OOOJ 
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TABLE 18 



CASE B (50% SYMMETRIC DAMAGE) AIRCRAFT 
EIGEXSTRUCTL'RE 



Spiral 




Phugoid 




Phugoid 




X = 0.0029 + 0.0000J 


X = -0.021 6 + O.OOOOJ 


X = -0.2929 + 0.000J 


0.0000 


0.0000J 


- 1.0000 


O.OOOOJ 


0.8985 


O.OOOOJ 


0.0000 


0.0000J 


0.0575 


O.OOOOJ 


- 1.0000 


O.OOOOJ 


0.0000 


0.0000J 


0.0000 


O.OOOOJ 


-0.0016 


O.OOOOJ 


0.0000 


0.0000J 


-0.0001 


O.OOOOJ 


0.0056 


O.OOOOJ 


0.7766 


0.0000J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0494 


0.0000J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0029 


0.0000J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


1.0000 


0.0000J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


Roll 




Dutch Roll 




Dutch Roll 




X = -2.S796 + O.OOOOJ 


X = -1.S6S0- 


•2.6153J 


X = -1.S6S0+ 2.6153J 


0.0000 


0.0000J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


0.0000J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


0.0000J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


0.0000J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


1.0000 


0.0000J 


1.0000 


-0.83 15J 


1.0000 


0.S315J 


0.0037 


0.0000J 


0.0061 


0.0020J 


0.0061 


-0.0020J 


0.0473 


0.0000J 


-0.0134 


0.004 1J 


-0.0134 


-0.004 1J 


-0.0164 


O.OOOOJ 


0.0014 


-0.004 1J 


0.0014 


0.004 1J 


Short Period 


Short Period 






X = -1.5271 


-3.0560J 


>. = -1.5271 + 3.0560J 






0.0300 


0.0098J 


0.0300 


-0.009SJ 






1.0000 


-3.2090J 


1.0000 


3.2090J 






-0.0157 


-0.0025J 


-0.0157 


0.0025J 






0.0027 


-0.003 SJ 


0.0027 


0.003SJ 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 






o.oooo 


O.OOOOJ 


0.0000 


O.OOOOJ 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 
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TABLE 19 








CASE B NULL SPACE RESIDUALS 






RES r = 


4>ri»2 = 0- 


71177E-01 






RES X = 


4>li»2 = 0- 


24853E+03 




Mode 


H £ ri 


II 


lleiill 






2-Norm 


so-Norm 


2-Norm 


so norm 


ShPer 


0. 69343E-02 


0. 63638E-02 


0. 66958E+02 


0. 47344E+02 


ShPer 


0. 69S48S-02 


0. 63638E-02 


0. 66958E+02 


0. 47344E+02 


PHD 


0. 59 1 12E-02 


0. 53929E-02 


0. 75575E+02 


0. 53439E+02 


DRoll 


0. 80799E-02 


0. 75772E-02 


0. 18091E-01 


0. 70056E- 13 


DRoll 


0. 80799E-02 


0. 75772E-02 


0. 18091E-01 


0. 70056E- 13 


FPhug 


0. 38560E-02 


0. 3 5073E-02 


0. 2 1993E+02 


0. 1555 1E+02 


Y3D 


0. 43562E-02 


0. 39647E-02 


0. 13785E+02 


0. 97474E+01 


Roll 


0. 84017E-02 


0. 74468E-02 


0. 20977E+00 


0. 17306E- 12 


SPhug 


0. 58469E-03 


0. 53 156E-03 


0. 20722E+01 


0. 126.00E+01 


F i ltr 


0. 12966S-03 


0. 11710E-03 


0. 41343E-01 


0. 1 1079E- 14 


Filtr 


0. 29424E-02 


0. 27095E-02 


0. 23058E-01 


0. 14597E- 14 


Fi ltr 


0. 14411E-01 


0. 13 104E-01 


0. 69341E+00 


0. 129405-05 


F i ltr 


0. 28594E- 1 1 


0. 20895E- 11 


0. 54636E-01 


0. 33852E- 15 


Filtr 


0. 4282 IE- 12 


0. 3 5023E- 12 


0. 23159E-01 


0. 561155-08 


Filtr 


0. 45401E-03 


0. 45067E-03 


0. 10299E+00 


0. 65734E- 15 


SDira 


0. 17383E-09 


0. 15661E-09 


0. OOOOOE+OO 


0. 00C00E+00 


Filtr 


0. 50470E- 12 


0. 38527E- 12 


0. 00000E+00 


0. 00000E+00 


Filtr 


0. 00C00E+00 


0. 00000E+00 


0. 00000E+00 


0. 00000E+00 
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TABLE 20 

RECONFIGURED FEEDBACK GAINS FOR CASE B DAMAGE 





O 


NZ 


A A 


R 


RST 


0.214ET00 


-0. 1 3 1 E + 00 


0.2^6E-03 


O.OOOE + 00 


LST 


0.214E + 00 


-0.13 IE + 00 


0.256E-03 


O.OOOE + 00 


RLE 


-0.4SOE-02 


0.993E-O2 


0.2S5E-0 1 


O.OOOE + OO 


LLE 


-0.480E-02 


0.993 E-02 


0.2S5E-01 


O.OOOE + OO 


RTE 


0.1 16E-01 


-0. 179E-01 


-0.852E-03 


O.OOOE + OO 


LTE 


0.1 16E-01 


-0.179E-01 


-0.S43E-03 


O.OOOE + 00 


RA 


0.000 E 4 - 00 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + 00 


LA 


0.000E + 00 


0.00OE + 00 


O.OOOE + OO 


O.OOOE - 00 


RR 


0.000E + 00 


O.OOOE + 00 


O.OOOE + 00 


0.6S9E + 00 


LR 


0.000E + 00 


O.OOOE + 00 


O.OOOE + OO 


0.6S9E + 00 




P 


NY 


Cl 


C2 


RST 


0.24OE-01 


O.OOOE + OO 


-0.25SE-02 


0.74SE-03 


LST 


-0.240E-01 


O.OOOE + OO 


-0.25SE-02 


0.74SE-03 


RLE 


0.000E + 00 


O.OOOE + 00 


-0.664E-03 


O.OOOE + OO 


LLE 


0.000E + 00 


O.OOOE + 00 


-0.664E-03 


O.OOOE + 00 


RTE 


0. 192E-01 


-0.240E-03 


0.97SE-03 


O.OOOE + 00 


LTE 


-0. 192E-01 


-0.141E-03 


0.97SE-03 


O.OOOE + OO 


RA 


0.600E-0 1 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + OO 


LA 


-0.600E-01 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + OO 


RR 


0.38SE + 00 


0.165E + 02 


O.OOOE + OO 


O.OOOE + 00 


LR 


0.3S8E + 00 


0.165E + 02 


O.OOOE + OO 


O.OOOE + 00 




C3 


C4 


C5 


C6 


RST 


-0. 192E-01 


-0.21 IE + 00 


-0.3S4E-0I 


O.OOOE + OO 


LST 


-0. 192E-01 


-0.21 1 E + 00 


-0.3S4E-01 


O.OOOE + OO 


RLE 


-0.494E-02 


0. 126E-01 


-0.9SSE-02 


0.41 3E-01 


LLE 


-0.494E-02 


0. 126E-01 


-0.98SE-02 


0.413E-01 


RTE 


0.727E-02 


-0.235E-01 


0.145E-01 


-0.1 12E-03 


LTE 


0.727E-02 


-0.235E-01 


0.145E-01 


-0. 1 1 1 E-03 


RA 


0.000E+00 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + 00 


LA 


O.OOOE + OO 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + OO 


RR 


0.000E + 00 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + OO 


LR 


O.OOOE + OO 


'0.0O0E + 00 


O.OOOE -r- 00 


O.OOOE + 00 




C7 


cs 


C9 


CIO 


RST 


0.000E + 00 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + OO 


LST 


0.000E + 00 


O.OOOE + OO 


O.OOOE + 00 


O.OOOE - 00 


RLE 


0.5S9E-03 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


LLE 


0.5S9E-03 


O.OOOE + OO 


O.OOOE + 00 


O.OOOE + OO 


RTE 


0.210E-01 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


LTE 


0.210E-01 


O.OOOE + OO 


O.OOOE + 00 


O.OOOE + 00 


RA 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + OO 


LA 


0.000E + 00 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + 00 


RR 


0.000E + 00 


-0.S36E-02 


-0.494E-02 


O.OOOE + OO 


LR 


0.000E + 00 


-0.856E-02 


-0.494E-02 


O.OOOE + OO 




Cl 1 


C/2 






RST 


0.000E + 00 


O.OOOE + OO 






LST 


0.000E + 00 


O.OOOE + OO 






RLE 


0.000E + 00 


O.OOOE + 00 






LLE 


O.OOOE + OO 


O.OOOE + OO 






RTE 


O.OOOE + 00 


O.OOOE + 00 






LTE 


0.000E + 00 


O.OOOE + 00 






RA 


O.OOOE + OO 


O.OOOE + 00 






LA 


O.OOOE + OO 


O.OOOE + 00 






RR 


0.317E-02 


O.OOOE + 00 






LR 


0.31SE-02 


O.OOOE + OO 
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TABLE 21 

CASE B RECONFIGURED AIRCRAFT EIGEXSTRUCTURE 



Spiral 




Phugoid 




Phugoid 




>. = -0.0029 




>.= -0.0202 


- O.OOOOJ 


>. = -0.3699 


- O.OOOOJ 


0.029S 


0.0000J 


- 1.0000 


O.OOOOJ 


0.65S6 


O.OOOOJ 


-0.0017 


0.0000J 


0.0535 


O.OOOOJ 


- 1.0000 


O.OOOOJ 


0.0000 


0.0000J 


0.0000 


O.OOOOJ 


-0.0019 


O.OOOOJ 


0.0000 


0.0000J 


-0.0001 


o.ooooj 


0.0051 


O.OOOOJ 


-0. / 6S 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0002 


O.OOOOJ 


-0.0494 


O.OOOOJ 


0.0000 


o.ooooj 


0.0000 


O.OOOOJ 


-0.0029 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


- 1.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


Roll 




Dutch Roll 




Dutch Roll 




a = -2. 8796 




>. = - 1.S6S2- 


-2.6152J 


h = -1.S6S2 


— 2.6152J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


1.0000 


O.OOOOJ 


- 1.0000 


1.265SJ 


- 1.0000 


-1.265SJ 


0.0037 


O.OOOOJ 


-0.0079 


-O.OOOSJ 


-0.0017 


O.OOOSJ 


0.0472 


O.OOOOJ 


0.0152 


-0.00S5J 


0.0090 


0.00S5J 


-0.0164 


O.OOOOJ 


-0.0006 


0.0054J 


-0.0033 


-0.0054J 


Short Period 


Short Period 






t. — -1.5052- 


3.013 4 J 


/. = -1.5052 


-r3.013-!J 






-0.00S5 


-0.0096J 


-0.00S5 


0.0096J 






- 1.0000 


0.S656J 


- 1.0000 


-0.S656J 






0.0046 


0.004 1J 


0.0065 


-0.004 1J 






-0.0017 


0.OO07J 


-0.00 IS 


-0.0007J 






-0.0004 


O.OOOOJ 


-0.0004 


O.OOOOJ 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 







PITCH ATT DEG 

0.0 2.0 4.0 6.0 0.0 10.0 12.0 14,0 16.0 1 



o 




Figure S. 12 Case B Reconfigured Pitch Attitude Response. 
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Figure 8.13 Case B Reconfigured Pitch Rate Response. 
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TABLE 22 



PERFORMANCE RECOVERY FEEDBACK GAINS FOR CASE B 

DAMAGE 





0 


NZ 


AA 




R 


RST 


0.213E-00 


-0.244E + 00 


0.1S4E-02 


0.0001 


E + oo 


LST 


0.213E + 00 


-0.244E + 00 


0.1S4E-02 


0.000 


E + OO 


RLE 


-0.175E-01 


-0.14SE + 01 


0.501 E-01 


0.000 


E + OO 


LLE 


-0. 175E-01 


-0.14SE + 01 


0.501 E-01 


0.000 


E + OO 


RTE 


0.204E-01 


0.127E + 01 


0.61SE-02 


0.000 


E + 00 


LTE 


0.204E-01 


0.127E + 01 


0.619E-02 


O.OOU 


E + 00 


RA 


0.000 E + 00 


O.OOOE + 00 


O.OOOE + 00 


0.0001 


E + 00 


LA 


0.000E + 00 


O.OOOE + 00 


O.OOOE + 00 


o.ooOl 


E + OO 


RR 


0.000E + 00 


0.157E-03 


O.OOOE + 00 


0.6891 


E + OO 


LR 


O.OOOE + 00 


0.105E-03 


O.OOOE + 00 


0.6S91 


E + 00 




P 


AT 


Cl 




C2 


RST 


0.240E-01 


O.OOOE + 00 


-0.271 E-02 


0.744E-03 


LST 


-0.240E-01 


O.OOOE + 00 


-0.271E-O2 


0.744E-03 


RLE 


0.000E + 00 


O.OOOE + 00 


-0.360E-02 


O.OOOE + 00 


LLE 


O.OOOE + 00 


O.OOOE + 00 


-0.360E-02 


O.OOOE + 00 


RTE 


0.192E-01 


O.OOOE + 00 


0.222E-02 


O.OOOE + 00 


LTE 


-0.192E-01 


O.OOOE + 00 


0.222E-02 


O.OOOE + 00 


FLA 


0.60OE-01 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


LA 


-0.600E-01 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


RR 


0.3SSE + 00 


0.165E + 02 


O.OOOE + 00 


O.OOOE + 00 


LR 


0.3SSE + 00 


0.165E + 02 


O.OOOE + 00 


O.OOOE + 00 




C3 


C4 


C5 




C6 


RST 


-0.202E-01 


-0.20SE + 00 


-0.403E-01 


O.OOOE + 00 


LST 


-0.202E-01 


-0.20SE + 00 


-0.403E-0 1 


O.OOOE + 00 


RLE 


-0.267E-01 


0.399E-01 


-0.535E-01 


0.41SE-01 


LLE 


-0.267E-01 


0.399E-01 


-0.535E-01 


0.418E-01 


RTE 


0.205E-01 


-0.433 E-01 


0.330E-01 


0. 1S6E-02 


LTE 


0.205E-01 


-0.453 E-01 


0.330E-01 


0. 1S6E-02 


RA 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


LA 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


RR 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


LR 


0.000E+ 00 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 




C7 


CS 


C9 




CIO 


RST 


0. 145E-03 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


LST 


0. 145E-03 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


RLE 


0.233E-02 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


LLE 


0.233E-02 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


RTE 


0.205 E-01 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


LTE 


0.205E-01 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


FLA 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


LA 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


RR 


O.OOOE + 00 


-0.S56E-02 


-0.494E-02 


O.OOOE + 00 


LR 


O.OOOE + 00 


-0.S56E-02 


-0.494E-02 


O.OOOE + 00 




Cll 


C/2 








RST 


O.OOOE + 00 


O.OOOE + 00 








LST 


O.OOOE + 00 


O.OOOE + 00 








RLE 


O.OOOE + 00 


O.OOOE + 00 








LLE 


O.OOOE + 00 


O.OOOE + 00 








RTE 


O.OOOE + 00 


O.OOOE + 00 








LTE 


O.OOOE + 00 


O.OOOE + 00 








RA 


O.OOOE + 00 


O.OOOE + 00 








LA 


O.OOOE + 00 


O.OOOE + 00 








RR 


0.317E-02 


O.OOOE + 00 








LR 


0.31SE-02 


O.OOOE + 00 
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TABLE 23 

CASE B PERFORMANCE RECOVERY AIRCRAFT EIGENSTRUCTURE 



Spiral 




Phugoid 




Phugoid 




K = -0.0029 




>. = -0.01S2 


+ O.OOOOJ 


>. = -0.4301 


+ O.OOOOJ 


0.0002 


0.0000J 


-1.0000 


O.OOOOJ 


0.5162 


O.OOOOJ 


0.0000 


0.0000J 


0.0490 


O.OOOOJ 


-1.0000 


O.OOOOJ 


0.0000 


0.0000J 


0.0000 


O.OOOOJ 


-0.0019 


O.OOOOJ 


0.0000 


O.OOOOJ 


-0.0000 


O.OOOOJ 


0.0045 


O.OOOOJ 


0.7394 


0.0000J 


0.0000 


O.OOOOJ 


0.0003 


O.OOOOJ 


0.0494 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


o.oooo 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


i.oooo 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


Roll 




Dutch Roll 




Dutch Roll 




k= -2.S797 




>. = - 1.S6S2-2.6152J 


K = -1.S6S2 + 2.6152J 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


-1.0000 


O.OOOOJ 


-1.0000 


-2.4534J 


-1.0000 


2.4534J 


-0.0037 


O.OOOOJ 


0.0076 


-0.0107J 


0.0076 


0.0107J 


-0.0472 


O.OOOOJ 


-0.0002 


0.02S6J 


-0.0002 


-0.02S6J 


0.0164 


O.OOOOJ 


-0.0072 


-0.0052J 


-0.0072 


0.0052J 


Short Period 


Short Period 






>. = -1.4342- 


•3.14S0J 


>. = -1.4342 + 3. 14S0J 






-0.0159 


0.OOS2J 


-0.0159 


-0.00S2J 






-1.0000 


-1.74S1J 


-1.0000 


1.74S1J 






0.0092 


-0.003 SJ 


0.0092 


0.003SJ 






-0.002 1 


-0.0020J 


-O.0O21 


0.00 20 J 






-0.0004 


O.OOOOJ 


-0.0004 


O.OOOOJ 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 






0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 
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PITCH ATT DEG 

0.0 2.0 4.0 0.0 0.0 10.0 12.0 14.0 10.0 18.0 20.0 22.0 24.0 



o 




Figure 8.14 Case B Performance Recovery Pitch Attitude Response. 
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PITCH PATH DEG/ SEC 
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Figure 8.15 Case B Performance Recover} - Pitch Rate Response. 



TABLE 24 

CASE C(25% ASYMMETRIC) DAMAGED C-LOOP EIGENVALUES 


Z- Plane Roots 


S- Plane Roots 


Mode 


1.0000 


O.OOOOJ 


0.000 


0.000J 




1.0000 


O.OOOOJ 


0.000 


O.OOOJ 




LOO 00 


O.OOOOJ 


0.003 


O.OOO.f 


Spiral 


1.0000 


O.OOOOJ 


0.004 


O.OOOJ 


0.9m 


O.OOOOJ 


-O.OIS 


O.OOOJ 


Phupoid 


0.9942 


O.OOOOJ 


-0.464 


O.OOOJ 


Phil gold 


0.9876 


O.OOOOJ 


- 1.000 


O.OOOJ 


0.9S60 


O.OOOOJ 


-1.129 


O.OOOJ 




0.9821 


O.OOOOJ 


-1.443 


O.OOOJ 




0.9753 


O.OOOOJ 


-2.000 


O.OOOJ 




0.9753 


O.OOOOJ 


-2.000 


O.OOOJ 




0.9753 


O.OOOOJ 


-2.004 


O.OOOJ 




0.9644 


O.OOOOJ 


-2.898 


O.OOOJ 


Roll 


0.9-64 


-0.0319.1 


-1.870 


-2.616.1 


Dutch Roll 


0.9~64 


0.03 19 J 


-1.870 


2.616J 


Dutch Roll 


0.9736 


0.0347 J 


-2.092 


2.S52J 


Short Period 


0.9736 


- 0.0 3 4 7 J 


-2.092 


-2.S52J 


Short Period 


0.9558 


O.OOOOJ 


-3.613 


O.OOOJ 




0.8409 


O.OOOOJ 


-13.861 


O.OOOJ 




0.7567 


O.OOOOJ 


-22.305 


O.OOOJ 




0.7109 


O.OOOOJ 


- 27.292 


O.OOOJ 




0.7106 


O.OOOOJ 


- 27.329 


O.OOOJ 




0.69S8 


-0.2220J 


-24.821 


-24.6 12J 




0.698S 


0.2220J 


-24.821 


24.6 12J 




0.6985 


-0.2223J 


-24.849 


-24.65 1J 




0.69S5 


0.2223J 


-24.849 


24.65 1J 




0.7651 


-0.3216J 


-14.912 


-31.S32J 




0.7651 


0.32 16J 


-14.912 


31.832J 




0.7597 


-0.3344J 


-14.906 


-33.172J 




0.7597 


0.3344J 


-14.906 


33.172J 




0.4907 


-0.06 13J 


-56.336 


-9.940J 




0.4907 


0.06 13J 


-56.336 


9.940J 




0.4119 


O.OOOOJ 


-70.951 


O.OOOJ 




0.4267 


-0.3259J 


-49.749 


-52.1S7J 




0.4267 


0.3259J 


-49.749 


52.187J 




0.4191 


0.3947.1 


-44.173 


60. 4 34 J 




0.4191 


-0.3947J 


-44.173 


-60.434J 




0.41S1 


-0.3950J 


-44.250 


-60.555.1 




0.4181 


0.3950J 


-44.250 


60. 55 5 J 




0.3601 


O.OOOOJ 


-81.707 


O.OOOJ 




0.3601 


O.OOOOJ 


-81. 70S 


O.OOOJ 




0.2253 


0.4029J 


-61.S47 


S4.S66J 




0.2253 


-0.40 29J 


-61.S47 


-S4.S66J 




0.2238 


0.40 19J 


-62.116 


S5.017J 




0.223S 


-0.40 19J 


-62. 1 16 


-S5.017J 




0.1226 


O.OOOOJ 


-167.883 


O.OOOJ 




0.1217 


O.OOOOJ 


-168.484 


O.OOOJ 




0.1208 


O.OOOOJ 


-169.101 


O.OOOJ 




-0.0042 


0.0203J 


-309.929 


141.910J 




-0.0042 


-0.0203J 


-309.929 


-141.91 0 J 




0.0017 


0.00S3J 


-381.951 


109.379J 




0.00 1 7 


-0.008 3J 


-3S1.951 


-109.379J 




0.0033 


O.OOOOJ 


-458.310 


O.OOOJ 




0.0032 


O.OOOOJ 


-460.648 


O.OOOJ 




0.003 1 


O.OOOOJ 


-461.236 


O.OOOJ 
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TABLE 25 



CASE C (25% ASYMMETRIC DAMAGE) AIRCRAFT 
EIGEXSTRUCTURE 



Spiral Phugoid Phugoid 



\ = 0.0029 + 0.0000J 


X = -0.0 179 + O.OOOOJ 


>. = -0.4641 +0.000J 


-0.0222 


0.0000J 


-1.0000 


O.OOOOJ 


-0.4041 


0.0000 


0.0012 


0.0000J 


0.0561 


O.OOOOJ 


1.0000 


0.0000 


0.0000 


0.0000J 


0.0000 


O.OOOOJ 


0.0016 


0.0000 


0.0000 


O.OOOOJ 


0.0000 


O.OOOOJ 


-0.0034 


0.0000 


-0.7765 


0.0000J 


0.0016 


O.OOOOJ 


-0.0030 


0.0000 


-0.0494 


O.OOOOJ 


0.0001 


O.OOOOJ 


0.0001 


0.0000 


-0.0029 


O.OOOOJ 


0.0000 


O.OOOOJ 


-0.0010 


0.0000 


-1.0000 


O.OOOOJ 


0.0024 


O.OOOOJ 


0.0021 


0.0000 


Roll 




Dutch Roll 




Dutch Roll 




k — -2.S978 + 0.000J 


k = - 1.8697-2.6 156J 


>. = -1.8697 + 2.6156 


0.0002 


O.OOOOJ 


-0.0001 


-0.0006J 


-0.0001 


0.0006 


-0.0114 


O.OOOOJ 


-0.0526 


0.0220J 


-0.0526 


-0.0220 


0.0000 


O.OOOOJ 


0.0002 


0.000 2J 


0.0002 


-0.0002 


0.0000 


O.OOOOJ 


-0.0001 


O.OOOOJ 


-0.0001 


0.0000 


1.0000 


O.OOOOJ 


1.0000 


-2.3749J 


1.0000 


2.3749 


0.0037 


O.OOOOJ 


0.0126 


-0.002 1J 


0.0126 


0.0021 


0.0477 


O.OOOOJ 


-0.0196 


0.0197J 


-0.0196 


-0.0197 


-0.6 165 


O.OOOOJ 


-0.0014 


-0.00S5J 


-0.0014 


0.00S5 


Short 


Period 


Short Period 






>. = -2.09 


21 + 2.S524J 


>. = -2.0921. 


-2.S524J 






-0.0027 


-0.00S7J 


-0.0027 


0.00S7J 






1.0000 


-0.0450J 


1.0000 


0.0450J 






-0.0015 


0.0045J 


-0.0015 


- 0.004 5 J 






0.0013 


-0.0004J 


0.0013 


0.0004J 






-0.0491 


0.01 23 J 


-0.0491 


-0.01 23 J 






-0.0001 


0.0002J 


-0.0001 


-0.000 2J 






0.0012 


O.OOOOJ 


0.0012 


O.OOOOJ 






-0.0002 


-0.0003J 


-0.0002 


0.0003J 
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BANK ANGLE DEG 

15.0 -12.0 -9.0 -6.0 -3.0 0.0 3.0 



LEGEND 

o = UNDAMAGED BANK ANGLE 
x = 25% ASYM DAMAGED BANK ANGLE 
O = RECONFIGURED BANK ANGLE 



-&■ 




i 1 1 i 1 i i 

0.0 1.0 2.0 3.0 4.0 5.0 6.0 

TIME - SECONDS 

Figure 8.16 Case C Bank Angle Responses. 



126 



YAW RATE DEG/SEC 

12.0 -9.0 -6.0 -3.0 



q 

d “1 



LEGEND 

o = UNDAMAGED YAW RATE 
x = 25% ASYM DAMAGED YAW RATE 
o = RECONFIGURED YAW RATE 



c 

o’ ~ 




Figure 8.17 Case C Yaw Rate Responses. 
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PITCH ATT DEG 

0.0 2.0 4.0 6.0 0.0 10.0 12.0 14.0 16.0 10.0 20.0 22.0 24.0 26.0 20.0 30. 




Figure 8.18 Case C Pitch Attitude Responses. 



pitch rate deg/ six: 

3.0 4.0 5.0 0.0 
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X 

o 
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UNDAMAGED PITCH RATE 

25% A.SYM DAMAGED PITCH RATE 

RECONFIGURED PITCH RATE 




Figure S.19 Case C Pitch Rate Responses. 
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TABLE 26 

RECONFIGURED FEEDBACK GAINS FOR CASE C DAMAGE 





O 


NZ 


A A 


R 


RST 


0.214E + 00 


-0.131E + 00 


O.OOOE + OO 


O.OOOE + 00 


LST 


0.214E + 00 


-0.1 3 IE + 00 


-0.323E-03 


O.OOOE + 00 


RLE 


0.000E + 00 


O.OOOE + 00 


0.2O9E-01 


O.OOOE + 00 


LLE 


-0.209E-02 


0.2 14E-02 


-0.320E-02 


O.OOOE + OO 


RTE 


0.000E + 00 


O.OOOE + 00 


0. U0E-01 


O.OOOE + 00 


LTE 


0.394E-02 


-0.20SE-02 


0.427E-01 


O.OOOE + 00 


RA 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + 00 


LA 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + 00 


O.OOOE + OO 


RR 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


0.6S9E + 00 


LR 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + 00 


0.6S9E + 00 




P 


AT 


Cl 


C2 


RST 


0.240E-01 


O.OOOE + OO 


-0.257E-02 


0.74SE-03 


LST 


-0.240E-01 


O.OOOE + 00 


-0.259E-02 


0.74SE-03- 


RLE 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + 00 


O.OOOE + 00 


LLE 


O.OOOE + 00 


O.OOOE + OO 


-0.364E-03 


O.OOOE + 00 


RTE 


0. 192E-01 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + OO 


LTE 


-0. 192E-01 


O.OOOE + OO 


0.322E-03 


O.OOOE + 00 


RA 


0.600E-01 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + 00 


LA 


-0.600E-01 


O.OOOE + OO 


O.OOOE + 00 


O.OOOE + 00 


RR 


0.3SSE + 00 


0. 165E + 02 


O.OOOE + 00 


O.OOOE + 00 


LR 


0.3SSE + 00 


0.165E + 02 


O.OOOE + OO 


O.OOOE + 00 




C3 


C4 


C5 


C6 


RST 


-0.191E-01 


-0.21 IE + 00 


-0.3S3E-01 


O.OOOE + 00 


LST 


-0. 193E-01 


-0.21 IE + 00 


-0.3S5E-01 


O.OOOE + 00 


RLE 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + OO 


0.412E-01 


LLE 


-0.27 1 E-02 


0.431 E-02 


-0.541 E-02 


0.403 E-01 


RTE 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + 00 


LTE 


0.240E-02 


-0.523E-02 


0.479E-02 


0.210E-02 


RA 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + 00 


LA 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + OO 


RR 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + 00 


O.OOOE + OO 


LR 


O.OOOE 4- 00 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + 00 




C7 


C8 


C9 


CIO 


RST 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + 00 


LST 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + OO 


RLE 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + 00 


LLE 


-0.252E-02 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + 00 


RTE 


0.2 1 9E-0 i 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + OO 


LTE 


0.241E-01 


O.OOOE + OO 


O.OOOE + 00 


O.OOOE + 00 


FLA 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + OO 


O.OOOE + 00 


LA 


O.OOOE + 00 


O.OOOE + 00 


O.OOOE + OO 


O.OOOE + 00 


RR 


0.000E + 00 


-0.856E-02 


-0.494E-02 


O.OOOE + 00 


LR 


O.OOOE + 00 


-0.S56E-02 


-0.494E-02 


O.OOOE + OO 




Cl 1 


C/2 






RST 


0.000E + 00 


O.OOOE + OO 






LST 


O.OOOE + 00 


O.OOOE + OO 






RLE 


O.OOOE + 00 


O.OOOE + OO 






LLE 


O.OOOE + OO 


O.OOOE + OO 






RTE 


O.OOOE + 00 


O.OOOE + 00 






LTE 


O.OOOE + OO 


O.OOOE + OO 






RA 


O.OOOE + OO 


O.OOOE + OO 






LA 


O.OOOE + OO 


O.OOOE + OO 






RR 


0.3 17E-02 


O.OOOE + 00 






LR 


0.31SE-02 


O.OOOE + OO 
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IX. CONCLUSIONS AND RECOMMENDATIONS 



Applications of eigenstructure assignment to design of robust decoupling and 
reconfiguring controllers has been shown to be an alternative tool for the control 
system designer. A level of sophistication over conventional design techniques is 
required due to the computational problems which arise from high order systems. 
Specifically, the majority of the computational complexities arise from the vast degrees 
of freedom for eigenvector orientation available in hyperspace. As the designer must 
clearly be aware of the modal structure of the system at hand, the technique is not to 
be envisioned as a black box design algorithm. The designer must become an active 
participant during all steps of the design. Further research is recommended in the 
following areas: 

a. Further investigation into obtaining performance recovery via modified 
objective functions for the reconfiguring controller problem is warranted. 

b. Developing more efficient optmizaticn schemes for convergence to reoriented 
eigenvectors. This will allow the researcher to more actively 'engage in the studv 
of the theoretical aspects of eigenstructure assignment bv relieving the burden 
of computational time required Tor such convergence. 

c. Additional research into analvzing the solution to the asymmetric degradation 
problem is required for refinement of the technique. " Research objectives 
associated with this type of damage would also involve modeling the cross 
coupling of stability and control derivatives for several coupling scenarios. 

d. Application of eigenstructure assignment to design of robust observers and 
reconfiguring damaged observers is'a natural extension of the work reported in 
this thesis. 

In summary, applications of eigenstructure assignment to damaged controllers 
has been shown to provide solutions to a specific class of aircraft damage. Solution 
techniques to the asymmetric and symmetric degradation problems must be further 
refined before progressing to the combined actuator, sensor, control surface 
degradation scenarios. 
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APPENDIX A 
NOTATION 



n 

m 

/. 



c 

A 

B 

C 

D 

F 

Gj . . . . 

g 2 .... 

X 

A 

T 

J n 

A 

A T ... 
A' 1 ... 
A + . . . 
SVD(A) 

V 



•V' 

X. . . 

x(k) 
l i ■■ 

V. . . 



u . . . 

V- 
* 1 •• 
^min 
II A|| 2 



No. of states 

No. of inputs 

No. of outputs 

No. of commands 

Plant Matrix (nxn) 

Control Matrix (nxm) 

Output Matrix (/xn) 

Feedforward-Output Matrix (/xm) 

Feedback Gain Matrix (m x/) 

Feedfwd Command-State Matrix (nxc) 

Feedfwd Command-Input Matrix (mxc) 

Right Eigenvector Matrix (nxn) 

Diag matrix of c-loop eigenvalues 

Left Eigenvector Matrix (nxn) 

Identity Matrix (nxn) 

Closed Loop Eigenvalue Matrix (nxn) 

Transpose of matrix A 

Inverse of matrix A 

Pseudo-Inverse of matrix A 

T 

Singular Value Decomposition of matrixA = U a L a V a 

Diag matrix of singular values 

ith closed loop right eigenvector 

dx'dt 

discrete state variable 

ith closed loop left eigenvector 

,. output vector 

control input vector 

ith closed loop eigenvalue 

Max singular value 

Min singular value of rank(m) matrix 

Matrix Spectal Norm of matrix A 
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|| x|| 2 Euclidean Norm of vector x 

££ or X Null Space 

d( ) dimension of ( ) 

(I> nxn Null Matrix of order nxn 
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APPENDIX B 

CONSTRAINTS ON EIGENSTRUCTURE SPECIFICATION 

In order to show the constraints on the specification of the closed loop 
eigenstructure, rewrite equation 3.60 in the following way, 



BFC = XAX* 1 - A 



(eqn B.l) 



Post multiplying equation B.l by X yields, 

BFCX = XA - AX (eqn B.2) 

Now let us define an 'n x n' transformation matrix. Q'^ [Ref. 23], such that B is 
transformed into a matrix with the 'mxm' identity in the first 'm' rows and an 'n-m x 
m' null matrix in the bottom 'n - m' rows, 

Q = { B | U bl } € ^ nxn (eqn B.3) 



Q 




= B 



(eqn B.4) 



m 



= Q‘ B 



<D 



I 



(eqn B.5) 



Further, use the transformation matrix Q to define the following similarity 
transformations, 



CQ = C° 



(eqn B.6) 



Q 



l X = X 1 



(eqn B.7) 
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(eqn B.S) 



Q* J AQ = A 0 

Pre multiplying equation B.2 by Q'* yields, 

Q'*BFCX = Q _1 XA - Q**AX (eqn B.9) 



Noting that Q'*B results in the lead identity matrix discussed previously and 
substituting the similarity form of X yields. 



m 



O 



FCQX 0 = Q' l X\ - Q'*AQX 



,0 



(eqn B.10) 



Further substituting the similarity forms for C.X, and A into equation B.10 yields 
the similarity form of equation B.2, 



(i JfC°X° - X°A • A°X° 

M 



(eqn B. 1 1) 



In order to simplify the analysis, let us remove the superscript notation for the 
similarity transformations from equation B.ll . Equation B.ll is then partitioned into 
upper and lower blocks. 

The upper half left hand block of equation B.ll becomes. 



FCX nx/ “ X mx/ A / ‘ A mxn X nx/ 



(eqn B.12) 



where the subscripts denote the row and column dimensions of the respective matrices. 
Solving for F from equation B.12 yields an exact solution for F, 



F ( X mx/ A / ' A mxn X nx/^ X nx/) ( ec l n 

The lower block of equation B.l 1 yields the following equation, 

^n-mx/ - X n-mx/ A / * A n-mxn X nx/ ^ ec l n 
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Equation B.14 reveals that there are 'n - m' equations with 'n' unknowns for each 
closed loop eigenvalue Xj. Each of the T system of equations 'is therefore 
underspecified and one can only specify 'm' elements of each column of X nx ^. This is 
of course the classic result of Srinathkumar [Ref 11] which is stated in Chapter II. 
Equation B.13 is the result noted in the work by Srinathkumar [Ref 11] and Sobel and 
Shapiro [Ref. 23]. The expressions presented in Table I of Chapter III as noted 
previously are least square solutions for the feedback gains. Note that if one desires to 
invoke 'n' eigenvalues and 'n' elements of the eigenvector in equation B.13. then 
equation B.13 also becomes a least square solution due to CX nx y becoming non 
square. 



136 



APPENDIX C 
El GENS 
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c 
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c 
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EIGENVALUE/EIGENVECTOR ASSIGNMENT VIA MOCRE (1976) 

AND KAUTSKY.E~.AL. (1985) ALGORITHMS. PRESENT PROGRAM 
ACCOMODATES LTI SYSTEMS WITH STATE OR OUTPUT FEEDBACK. 

MCCRE ALGORITHMS ONLY ACCOMODATE SYSTEMS WITH REAL . D I ST I NOT , 

S CONTROLLABLE EIGENVALUES AND STATE FEED. KAUTSKY ALGORITHM 
WILL ACCOMODATE SYSTEMS WITH COMPLEX CONTROLLABLE EIGENVALUES 
AND WILL FIND ACHIEVABLE EIGENVECTORS ASSOCIATED WITH DESIRED 
C-LCOP EIGENVALUES FOR BOTH STATE AND OUTPUT FEEDBACK. 
ADDITIONAL OPTIONS INCLUDE USING THE ADS OPTIMIZATION ROUTINE 
FOR: I. MINIMIZING THE CONDITION NO. OF THE EIGENVECTOR 

MATRIX. (PRESENTLY NOT WORKING) 

2. MINIMIZING THE SINGULAR VALUE OF THE RETURN 

DIFFERENCE MATRIX WITH THE CONSTRAINTS OF A DE- 
SIRED EIGENSTRUCTURE. 

CDR V.F. GAVITO 
APRIL 1936 



DEFINITIONS 



A = PLANT MATRIX (N X N) 

AT = A TRANSPOSE (N X N) 

B * CONTROL MATRIX (N X M) 

BDEL = DAMAGED CONTROL MAT (N X M) 

C * OUTPUT MATRIX (L X N) 

D = FEED FORWARD MATRIX (LXM ) 

EIG = O-LOC? EIGENVALUES (N X 1 ) 

El GO a Q-LOCP EIGENVALUES (N X I ) 

EIGOI = O-LOOP ” (N X I ) 

EIGD = DESIRED C-LOOP EIGENVALUES 
EIGDD = DESIGN C-LCCP EIGENVALUES 
EIGREC a C-LOOP EIGENVALUES CF RECONFIGURED SY: 
SLAM3DA a <LAMCHA«I-A 3> 



COMPLEX VECTOR 
(REAL PART) 

(IMAGINARY PART) 

(N X 1) COMPLEX VECT 



RANK1 = R<3LAMBCA> 

RANKS a R<C> 

VD = DESIRED BASE EIGENVECTORS 
V a DESIGNED BASE EIGENVECTORS 
VRECON = EIGENVECTORS (NORMALIZED) 
CV a <C>*<V> 

E a " C*V FOR EACH EIGENVALUE 
WC 1.2 *3. A, 5 a WORK COLUMN VECTORS 
WM1 .2* 3. A. 5. 6 a WORK MATRICES 



(N X N) 

(N X N) 

OF RECONFIGURED 
(L X N) 

(L X N) 

(1 X N) 

(N X N) 



7.8.9.IO.I1 , 12 - 



SYSTEM 



WK I • 2 . 2 » A . 5 a WORK AREAS FOR EIGRF 
W = FREQUENCY (RAD/SEC) 

WP = ” " FOR DIS3PLA COMPATIBILITY 

K a I (FOR FORCING EOUALITY RELATION FOR 
UNCONTROLLABLE EIGENVALUES) 

F a FEEDBACK GAIN MATRIX (M X L) 

FC = COMPLEX FEEDBACK GAIN MATRIX (M X L) 

FEEL = RECONFIGURED FEEDBACK GAINS (M X N) 

ABF a C-LCOP MATRIX A * 3F 

I CTR a CONTROLLABILITY FLAG FOR O-LOOP EIGENVALUES 
IFEED = FEEDBACK FLAG 

1 = FULL STATE FEEDBACK 
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OUTPUT FEEDBACK 



c z - 

C 3 » OUTPUT FEEDBACK PLUG FEED FGRWARO 

C SF = SINGULAR VALUE VECTOR FOR FEEDBACK GAINS 



c 


SI a SINGULAR VALUE 


VECTOR 1 






c 


S2 = SINGULAR VALUE 


VECTOR 2 






c 


SVM s MIN SINGULAR 


VALUE OF 


I * FG 




c 


SVMl a MIN SINGULAR 


value of 


I ♦ GF 




c 


SVMAX = MAX 


.. 


I ♦ FG 




c 


SVMAXI a " 




I * GF 




c 


SVMP = MAX 


.. 


** FG FOR 


DISSPLA COMPAT 


c 


SMREC a MIN S.V. CF 


RECONFIGURED SYSTEM 


(A SINGLE VALUE) 


c 


WRED a FREQUENCY OF 


SMREC 






c 


UI.VI a orthogonal 


MATRICES 


COMPUTED BY 


C3V0 FOR SVD OF 



C RETURN DIFFERENCE MATRIX 

C UIF.VIF = ORTHOGCNAL MATRICES COMPUTED BY LSVDF FOR SVD OF 

C FEEDBACK GAIN MATRIX 

C Z.Z1 .Z2.Z3.Z4.ZS = COMPLEX WORK AREAS 

C UTSLAM a U** TRANSPOSE OF SVD OF SLAM8DA 

C VRT a U**- TRANSPOSE OF EIGENVECTOR MATRIX 

C 

** 

c 

C DIMENSION STATEMENTS 

C 

C*********************************************************************** 

C 

IMPLICIT R£AL*8( A-H.P-Z) 

REAL <*8 A(10. 10). 8(10. 10). C(10. 10). El GO (20). El GV (10. 10). El GO 1(20) 
IP ( 10 . 10).F3AVE( 10. 10 ) .BDELC 10. 10 ) ,FOEL( 10 . 1 0 ) . WM8 ( 10 . 10 ) . 

2 WC 1 ( 1 0 ) . WC 5 ( 1 0 ) . WC6 ( 1 0 ) . WC5 ( I 0 ) . F ( I 0 . I 0 ) . CV ( I 0 . 1 0 ) . WM9 ( 1 0 . I 0 ) . 

3 UN I TY (10.10) .W(2000 ) .SVMl (2000 ) .SVMAXI (2000 ) . WM10( 10 . 1 0 ) . 

<* WM3 (10.10). WM5 (10.10). UTSLAM (lO.lO).VRT(lO.lO).WMlldO.lO). 
5WK2I250) .ABFOELdO. 10 ) . D ( 10 . 10 ) . waREAZ ( 10 . 10 ) . WM12( I 0 . 10 ) . 
bTEIGR(IO).TElGKlO). TEIGVR (10.10).TEIGVI(10.10).AT(10.10).WK3(20) 
714Mb ( I 0 . 10 ).WM7(10. 10 ) .SVM(2000 ).EIGVD( 10. 10) . S3 ( 1 0 ) . SVMAX ( 2000 ) 
DIMENSION COM ( 10 ) .TITLE(20 ) . WP ( 20 0 0 ) . SVMP ( 200 0 ) 

complex* i 6Z( io. io).ri(io).Z 2 (io.io).z:(io). 2 fi(io. io).rs(io). 

1EIG(10) ,V(10. 10 ).EIGD( 10).EIGDD(10).E(10. 10). VO ( 10 . 10), 

2 UN I TYC ( 1 0 . 1 0 ) . ZN . V I F ( 1 0 . 1 0 ) . E I GREC ( 1 0 ) . VR ECON (10.10). 

3 FCdO.lO) 

REAL-8 WM 1(10. 10). MK 1(20) . WK4 ( 20 ) . A6F ( 1 0 . 1 0 ) . SLAMOA ( 20 . 20 ) . 

1WM2( 10. 10 ) .SI ( 10 ) . WK(20 ) .VR( 10. 10 ) ,S2( 10 ) . WC2 ( 1 0 ) . WKAREA ( 25 0 ) . 

2 WMA ( l 0 . 1 0 ) . WAREA 1 ( 25 0 ) . VS AVE ( 1 0 . 1 0 ) . VRS ( 1 0 . 1 0 ) . SF ( 1 0 ) . U IF ( 1 0 . 1 0 ) 
INTEGER IWK(IO). ICTR ( 1 0 ) . N . M . L . I FEED 
C 

* * 

c 

C INITIALIZE ALL MATRICES 

C 

M s, «*„„*** „ 

c 

DO 1 I a 1.10 
IWK( I ) = 0 
ICTR ( I 1 a 0 
I4C 1(1) a 0 .DO 
WC2(I ) * 0 . DO 
WC3(I) a 0.00 

wc«d ) a 0 .00 

WC5 ( I ) a 0.00 
SKI) a 0.00 
S2( I ) a 0.00 
SKI) a 0.00 
TEIGR(I) = 0 . DO 
TEIGK1) a 0 . DO 
COM ( I ) a 0 . DO 
DO 2 J a l , 10 
A ( I . J ) = 0.00 
B ( I . J ) a 0 . DO 
CC I . J ) = 0 . DO 
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DC I • J ) = C - 00 
FC.J) = C . 30 
3VCI.J) = 0.33 
SLAMCA(I.J) = 0.20 
UTSLAMI.J) = 0.20 
VRTc:. w ) = 0.30 
EIGV3C I . J ) s 0.30 
VOC.J) = CO. 30. 0.30) 
VCl.J) = CO. DO. 0.30) 
VR(I.J) = 0.30 
V«SCI.-) = CO. DO- 0.30) 
ASF(I.J) = 0.20 
AT ( 1 • J ) = 0.20 
9 ( I . J ) = 0.30 
(JNI T V C I . J ) = 0.30 
UNITVCC.J) = CO. 30.0. 00) 

j : = c : . j ) = o.oc 

UMUX.J) = C . 30 
-M2CI.J) = 0.30 
AM3CI.J) = 0.30 
UH4CI.J) = 0.30 
U.MSCI.J) = 0.30 
-Mitl.j) = 0.3C 
AM7CI.J) = 0.30 
AN3CI.J) =0.30 

AMA(I.J) s 0.20 

-.*10(1. J) s 0.30 
AH1ICI.J) = 0.30 
wMlcCi.J) = 0.30 
CONTINUE 
CONTINUE 

30 5 : = 1.30 
30 5 J = i .30 
$l_A*DA(i.J) = 0.30 
CONTINUE 

DC 6 I = 1.30 
AK(I) = 0.30 
WKICI) * 0.30 
A<2CI) = 0.30 
A<£(l) = 0.30 
EIGOCI) = 0.30 
El 30 I C I ) = 0.30 
CON’ ISLE 

30 7 I = 1.350 
-<3CI) = 0.30 
*<aSEa C I ) = 0.30 
AAREAKI ) = 0.30 
CONTUSE 

30 3 : = 1,13 
:i c: ) = co. do. o.3o ) 
z:cn = co. oo. c.oo) 

Z5CI) = CO. 30.0. DO) 

EI3CI) = (0.30.0.30) 
EIGOCI) = CO. 30. 0.30) 
EIG33C I ) = CO. 20. 0.20) 

DO 9 J = 1.10 
ECI.J) = (0.30.0.30) 
ZCI.J) = (0.30.0.20) 
33CI.J) = CO. 20. 0.30) 
2AC.J) = CO. 30. 0.30) 
CONTINUE 
CONTINUE 

30 II I * 1,3000 
SVMAXC) = 0.30 
37 M Cl) = 0.30 
GVMlft) = 0.30 
5VNAXICI) * 0.30 

ac i ; = o.3C 



up ci ) = o.o 






SVMP (I) = 0.0 
11 CONTINUE 

c 

- 

c 

C REAO IN Data 

c 

C 

C READ IN OUTPUT TITLE 

C GOTO 511 

ID REACC1. 16JTITLE 

16 FCRMAT(DOAA) 

C READ IN NO. OF STATES. NO. OF INPUTS. NO. OF OUTPUTS, TYPE FEEDBa 

REAO(I.IO) N.m.L.IFEED 
10 FORMAT (4121 

C READ IN A.B.C.O 

DO DO I s 1 , N 
READ (1.15) ( A ( I . J ) , J = 1 ,N ) 

DO CONTINUE 

DO 30 I = l.N 

READ (1.15) (B(I.J).J*1.M) 

30 CONTINUE 

DO AO I » 1 »L 

READ(l.lS) ( C( I , J ) , J = 1 . N ) 

AO CONTINUE 

IF ( I FEED . NE . 3 IGOTO DD 
D 1 DO 51 I = 1 »L 

51 READtl. IS 3 ( DC I.JJ.J-l.MJ 

15 FORMAT ( 6F 1 D . 5 ) 

C READ IN DESIRED C-LOOP EIGENVALUES 

DD DO A 1 I = 1 . N 

READC 1 .AD )EIGD( I ) 

AD FORMAT (DFID .5 ) 

A 1 CONTINUE 

C READ IN DESIRED C - V 

DO A3 I = l.N 
DO AS J » l.L 
READC 1,AA)E( J. I ) 

AA F0RMAT(DF1D .5 ) 

A3 CONTINUE 

C READ IN DESIRED BASE EIGENVECTORS 

DO 45 I = l.N 
DD AS J = l.N 
READ ( 1 , A 6 ) VD ( J , I ) 

A6 FORMAT(DFID.S) 

A5 CONTINUE 

Qmmmmmmmmmm 

c 

C DISPLAY input for CHECKING 

C 

- 

CALL FRTCMS C'CLRSCRN ') 

WRITE(6.1A0)TITLE 
WR ITE( 6 . 5D ) I FEED 

5D FORMAT! /5X. ' ««««♦ FEEDBACK FLAG * ' . ID . * *«*«•./) 

WRITE(6.50) 

50 FORMAT! / 1 OX » ’ **** A MATRIX 

DO 70 I = l.N 
WR I TE ( 6 . 60 ) ( A ( I , J ) . Js 1 , N ) 

60 FORMAT! 1 X . 6 ( El D . 5 . DX ) ) 

70 CONTINUE 

WRITE (6.30 ) 

80 FORMAT ( /I OX , ’ * " " ** B MATRIX 
DO 100 I * l.N 
WR I TE ( 6.90) (B(I.J). J«1.M) 

°0 FORMAT( 1X.6(E1D.5.DX) ) 

100 CONTINUE 

WRITE(6. 110 ) 

110 FORMAT (/10X, C MATRIX 
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30 130 I » 1 . L 
^RIT£!6 . ICO) !CCI.J).J*1 ,N) 
ICO FCRmaT!1X.6!E12.5.2X)) 

133 CCNT1WE 

^rEK.lllJ 

111 FORmaTI/ICX. • D MATRIX -«>•«•./) 

co lie : = l • l 
lie writcCo. leojton 

-RITEC6. 150) 



150 FC® m aT(//1CX. DESIRED BAGS EIGENVECTORS FOR USE IN * «• « « * . / 

11 OX. KAUTSKv' ALGORITHM ONLY *--«#•// 



2 OX. -EIGENVECTOR' -CX. 'REAL PART * . 6X ♦ ' I MAG PaR“*./) 

CO 151 1 = I.N 
wRI?£!6. 153 ) I 

153 format c 7 x . :; } 

CO 151 J = l.N 
-RITEtb. 152 )VDCJ. I 1 
152 FCRmaTC 1SX.E12.5 .3X.E12-5 ) 

151 CONTINUE 
1 A 0 FORMAT!//. 20AA ) 

HRITECo.lcO) 

160 FGRMATC/10X. * -«■*« DESIRED C-LOQP EIGENVALUES FOR USE IN ./ 

nox. <autsky algorithm only 

2.* EIGENVALUE* .2X. ’REAL PART* . 6X , * IMAG PART*./) 

30 155 I = l.N 
-RIT£C6. 156)1. EIGDCI) 

156 FCR m aT( 7 X. I2.AX.£ie.5.3X.E12-5 ) 

155 CONTINUE 



constants 





c 

0 I CENT 1 TY MATRIX 

DO 200 I = 1.10 
UlFfl . 1 ) = 1.00 
UNITY! I . I )*1 .30 
UNITYCCI.I) = !1. 30.0. DO) 

200 CONTINUE 
C GOTO 531 

* 

c 

C DEOICE CN RECONFIGURATION analysis OR EIGENSTRuCTuRE CESIGn 



c hr i T£! 6 , esc ) 

C 02 = CR m aT ( / 5 X ENTER M l" FQR RECONFIGURATION STUDIES ««*•«•. / 5 X. 

C l 1 *-•- ENTER ** 2 " FOR EIGENSTRUCTURE ASSIGNMENT -<'./) 

C READ C * > 3 1 3 ) I RECCn 

C IF! IPECCN.EC. 2 )GCTO 165 

C ISOLN = 3 

C CALL RECCN ! a.S.C.F.L .M.N. 33 EL . FDEL . EIGREC . VRECON . SMREC . WREC . 

C 1 A 5 F 3 EL) 

C GOTO 509 

C « ««"« 



CALCULATE O-LOCP EIGENVALUES 



C SAVE A SINCE E1GRF DESTROYS A 

165 30 201 I = I.N 

30 231 J = l.N 
WM1U.J) = ACI.J) 

201 CONTINUE 

call EIGRFCHMl , n. 10. 0.Z1 .2. 10.WK1 . IER ) 
30 205 1 a 1 ,N 
EiGc i ) = e i c i ) 

ElGCin = CREALIZ1 !1 )) 
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eigoiu) » oiMAGtrid )) 

205 CONTINUE 

WR ITE ( 6 . 2 I 0 ) 

CIO FORMAT (// I OX. ’ <*«*** OPEN LOOP EIGENVALUES <* » « ** 1 . //3X , * <***REAL * * ' . I SX 
- . * ***IMAG*>* ‘ / ) 

DO 225 I a 1 . N 

WRITEC6.220)EIGC( D.EIGOKI J 

220 FORMATC IX.EI2 .5. 10X.E12.5 ) 

225 CONTINUE 

C RE- INITIALIZE WMI WORK MATRIX 

DO 226 I = I .N 
DO 226 J - I .N 
WMI (I . J) * 0.0 

226 CONTINUE 

'■*«**’***** 

c 

C CHECK O-LOOP EIGENVALUES FOR CONTROLLABILITY 

C 



DO 260 I = 1 -N 

X s DREALtEIGCin 

I F C E I GO I (I ) . EQ . O . DO ) GO TO 227 

CALL CCNTRLCA.B.UNITYC.N.M. ICTR.eiG. I J 

GOTO 260 

227 DO 221 J * I .N 

WMICJ.J) a X"UNITY(J. J) 

221 CONTINUE 

DO 230 J * I .N 
DO 230 K = I.N 

WM2 ( J • K ) = WMKJ.K) - A(J.K) 

UT3LAMCJ.K) a UNITYCJ.K) 

230 CONTINUE 

C CALCULATE SLAMDHA(I) 

DO 260 J a I .N 
DO 260 K = 1 ,n 
SLAMDA(J.K) a WM2CJ.K) 

260 CONTINUE 

DO 250 J = I.N 
DO 250 K a I.M 
SLAMDA C J . K*N ) a BCJ.K) 

250 CONTINUE 

C CALCULATE RANK OF SLAMDHA 

II = K*N 

CALL LSVDF (SLAMDA. 20. N. I I . UTSLAM . I 0 , N ,S I ,WK. IER ) 

IF ( I ER . EQ . 3 2 JGOTO 251 
ICTRCI) = 1 
GOTO 260 

251 ICTRCI ) a 0 
260 CONTINUE 

C DISPLAY CONTROLLABILITY FLAGS FOR O-LOOP EIGENVALUES 

WRITEC6.300) 

300 FORMATC//5X. ’O-LOOP EIGENVALUE CONTROLLABILITY FLAG (UY)') 

DO 310 I = I.N 

WRITEC6.320) E IGO ( I) . E IGO I ( I) . ICTR ( I ) 



320 FORMAT (IX,E10.3.IX,EI0.3»*J* • 1 6X . 12) 

310 CONTINUE 

C DECISION FOR REINSERTING EIGENSTRUCTURE 

WRITE (6. 312) 

312 FORMATC/lOX, ' DESIRED EIGENSTRUCTURE HAS BEEN READ FROM **<*****• . 

1 /IOX, ' «**•<** DATA FILE. ENTER -I- TO CMG . NOTE: CANNOT « 

2 / I OX, ’ **•*-*« CHG IF KAUTSKY ALGOR. WILL BE USED. ENTER * 

3 /10X. ‘ ****** ”2“ IF YOU DESIRE TO USE FILE DATA FOR <* 

6 /10X. * ****** MOCRE ALGOR. OR IF YOU ARE GOING TO USE * 

5 /IOX,’***** KAUTSKY ALGOR T IHM . * 

6 /) 

READ (**.313) I El GEN 

313 FORMAT (II) 



CALL FRTCMSC ’CLRSCRN ') 
IF( IEIGEN.EO.OGOTO 352 
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C*44444*444444444«*4444*44444444*4M»44444MM44444*44444MM444*44rt4*44444tfK 

c 

C INPUT DESIREO C-LOOP EIGENVALUES 

C 

C-44444444 

:il WRITEC6.SC5) 

325 FORMAT(/$X.’"««* ENTER DESIRED C-LOOP EIGENVALUES ««««*. /5X. 

1 *44-4 REMEMBER : ONE CANNOT SHIFT THE «**»*./5X, 

2 -4-44 UNCONTROLLABLE EIGENVALUE (S ) ***.*•. /5X. 

3 •4 44 4 ONE MUST SHIFT IN SAME OROER AS *««-'. /5X. 

A -44-4 WAS DISPLAYED TO MAINTAIN PROPER ""***. /SX. 

5 >«4«4 CCNTRCLLA3ILLITV IDENTIFICATION ,/5X) 

DO 330 I * l.N 
WRITEC6.3C4JI 

324 FORMAT ( IX. ' DESIRED C-LOOP EIGENVALUE C a * 1 1 • a ) =*./$X. 

1 ’REAL PART ..ENTER THEN IMAC PART ..ENTER 1 ./) 

5£AD(-.3D6) X 
READ ( -.3261 Y 

326 FCRMATCF12 .5 ) 

EICD(I) a DCMPLX(X.Y) 

330 CONTINUE 

O'-' 

c 

c INPUT DESIRED VALUE OF C*V 

C 

C .4 4-4 4 4 44* 44 -4 44 44444-4-444* 

335 WRITER. 3A0) 

340 FORMAT ( / lOX. 1 -**- INPUT OESIRED C X EIGENVECTOR **•*<*•. /I OX . 

1 .--44 FCR each EICEnva,_ue IN COLUMN •*««»* ./i ox. 

2 '4444 FORMAT. 4444',/) 

DO 350 J a l.N 
00 350 I = l.L 
WRITEC6. 351)1 .J 

351 FORMAT! IX. *EC '. II II .’ ) a *./5X. 

I 'REAL PART ..ENTER THEN IMAC PART ..ENTER*) 

REA0(-.365) X 
READ ( * . 365 ) v 
365 FORMAT (F ID . 5 ) 

E( I • J ) a DCMPLXCX. Y) 

350 CONTINUE 

* 4444444444-44*4«44*4444«4444444*444444*-4*4444444444444444 

C 

C DISPLAY DESIREO E I CENSTRUCTURE 

C 

* --- -4444-4*444 
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370 

380 



CALL FRTCMS! ‘CLRSCRN ') 

WRITE (6. 3 60) 

FORMAT (//l OX. ’ DESIREO EIGENSTRUC”URE FOR USE IN MOORE 



1 10X. >444* ALGORITHMS. IGNORE IF KAUTSKY ALGORITHM «* 

2 10X. '4444 will be selected. «« 



3 . ftX . * EIGENVALUES ’ # 12X . ’ C * VC)*./) 

OO 380 I = l.N 

WRITE (6. 370) EIC0<I ). (ECK.I).K*l.L) 
FORMAT(1X.2(E10.3. IX). IX . 8 ( /26X . El 0 . 3 . IX. El 0.3) ) 
CONTINUE 



,/ 

// 



c 

C- 

C 

c 

c 

C' 

c 



385 



CALCULATE eicenvectcr associated w/each eigenvalue 



DECIDE ON MATRIX OR ALGEBRAIC SOLUTION OR KAUTSKY ALOCORITHM 
wRITECft.335) 



FORMAT(///5X . 
1 . 



ENTER "l'* FOR MOORE-MATRIX SOLN. ^**' 
.4*4 ENTER "2” FOR MOORE-ALCESRAIC SOLN . ** 
<«-* ENTER “ 3 " FOR KAUTSKY ALGORITHM. 

•«-h NOTE: MOORE-ALCEBRAIC SOLUTION IS * 
.4 4 4 R E CO IF L>M ANO YOU DESIRE MOORE AL<* 
CORITHM. KAUTSKY ALCORITHM RECD 



' . /5 X . 
' ,/5X. 

• ./5X. 
' ./5X. 

• ,/SX. 
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6 FOR complex eigenvalue ANALYSIS and*"** ’ • /5X 

7 ***** interactive eigenstructure design ****•. /5X 

8 ***** ANO FOR OUTPUT FEE08ACK PROBLEMS. ****'./) 
REAOC * • 386 ) ISOLN 

286 FORMAT (II) 

CALL FRTCMSC 'CLRSCRN *) 

IF C ISOLN. EQ. 1 )G070 387 
IF ( ISOLN. EO.: )GOTO 381 

CALL KVECT(A,8.C.D.E:G0.F.N.M.L.V0. V. IFEEO) 

WRITE (6. 382) 

382 FORMAT ( /5X . * * * * * KAUT3KY ALGOR I TM COMPLETED -***’./) 

GO^O 509 

381 CALL ALGSLNCA.B.C.EIGO.E, UNITY. N.M.L.V.WM3 ) 

WR I TE ( 6 • 388 ) 

388 FORMAT! /5X. * **** ALGEBRAIC SOLUTION COMPLETEO ****’./) 

GOTO 481 
337 DO 400 I * l.N 
C REINIT SLAMOHA MATRIX 

DO 390 11= I. 10 
00 390 JJ= 1.13 
SLAMOA! 1 1 . JJ )= 0.00 
390 CONTINUE 
C REINITIALIZE WC2 

00 4C1 II = 1*10 
WC2CII) = 0.00 
401 CONTINUE 

C RECOMPUTE SLAMOHA MATRIX FOR EACH EIGENVALUE 

00 3^5 J = l.N 
DO 395 K = l.N 
X = OREALCEIGDCI ) ) 

SLAMDA (J.K)s X*UNITY(J,K) - ACJ.K) 

395 CONTINUE 

C AUGMENT SLAMOA TO INCLUOE 8 

00 39b J = l.N 
00 396 K = 1 ,M 
SLAMOA ( J » K*N ) = 3 ( J . K ) 

396 CONTINUE 

C AUGMENT SLAMOA TO INCLUOE C 

00 410 J = 1 . L 
DO 410 K = l.N 
SLAMOA ( J *N . K ) = C(J.X) 

410 CONTINUE 

C CALCULATE <0 E(I)> TRANSPOSE 

00 420 J = l.L 
X a OREAL(E( J. I ) ) 

WC2CJ*N) = X 
420 CONTINUE 

C CALCULATE < VC I ) W(I) > TRANSPOSE 

II = N ♦ L 

C OE3UG WRITE STATEMENT 

C WRITECb.421) 

C2 1 FORMATC5X. ’ **** SLAMOA AUGMENTEO MATRIX** * " * . / ) 

C 00 423 K1 = 1*11 

C WRITE (6, 422 )( SLAMOA (K1 .K2).K2=1 . II ) 

C22 FORMAT(lX.b(E10.2.2X) ) 

C23 CONTINUE 

c * ******************* ***** *** ************** * 

c 

C JUMP TO 680 FOR UNCONTROLLABLE EIGENVALUES 

C (PRESENTLY PROGRAM WILL NOT HANDLE THIS CASE) 

C 

*********-****«*************************************„*** 

IF(ICTR( I ) .EQ.OJGOTO 680 

424 CALL LEQT1F ( SLAMOA . 1 . I 1 . 1 0 . WC2 • 1 . WKAREA . IER) 

470 00 480 J = 1 .N 

VCJ.I) = OCMPLX(WC2(J) .0.00 ) 

430 CONTINUE 

00 485 J = 1 -M 
WM3CJ.I) = WC2 ( J *N ) 
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685 CONTINUE 
600 CONTINUE 

C « ****** «**«< ««»« * »»**»*«*«"""* 

C 

C CHECK FOR INDEPENDENCE OF EIGENVECTORS COMPUTED VIA 

C MOCRE ALGORITHMS 

C 

C * * - *-*« 

C CALCULATE RANK OF V 

C L5VDF REPLACES ’V WITH THE ORTHOGONAL 'V' MATRIX A LA SINGULAR 
C VALUE DECOMPOSITION. THEREFORE ’SAVE’ REAL PART. 

681 DO 682 I = I .N 

DO 682 J = 1 • N 
VRCI.JJ a DREALCVC 1 . J ) ) 

VRSCI . J ) * VR C I . J ) 

VRT(I.J) a UNITYCI.J) 

682 CONTINUE 

CALL L3VDF ( VR . 1 0 . N . N . VRT . 1 0 . N . S2 . WK 1 . IER ) 

IFCIER.EO.33 I GOTO 6?0 
GCTO 501 

6«0 WR1TEC6.500) 

500 FORMAT (//5X. •*** "EIGENVECTORS ARE NCT INOEPENOENT. MUST *«»« , ,/5X, 

1 ’*•««« CHANGE C X EIGENVECTOR Cl) OR CHG IN- *«*«*./) 

IF ( I SOLN . EQ . 3 )GCTO 680 
GOTO 335 

C***« 

C 

C CALCULATE FEEDBACK GAINS 

C 

<****„**<«.* *«*« 

501 CALL LINV2F(VRS.N. 10.WM6. 1 .WAREAl . IER) 

WRITECS.S07) 

507 FORMAT ( / 5X » ’ * * * * EIGENVECTOR MAT HAS BEEN INVERTEO. F GAINS NEXT « 

l'**"’ ./) 

CALL VMULFF ( WM 3 . WM6 .M.N.N.I0.10.F.I0.IER) 

WRITE Co. 508 ) 

508 FORMAT C/5X. * «»«» F GAINS COMPUTED - « * « • . / ) 

C ASSIGN PROPER SENSE TO FEEDBACK GAINS 

DO 506 I s 1 ,M 
DO 506 J s 1 .N 
FCI.J) = - FCI.J) 

506 CONTINUE 

C 

c 

C CALCULATE A ♦ BF OR A ♦ BFC OR A ♦ B-INVCl - FDJ-FC 
C 

C* « * 

50* IFCIFEEO.EO. DGOTO 513 

IF ( I FEED. SO. 2 JGCTO 516 

CALL VMULFFCF.C.M.L.N. 10. 10.WM7. 10. IER ) 

CALL VMULFFCF.D.M.L .M. 10 . 10 .WMB . 10 . IER) 

DO 516 I = I.M 
DO 516 J a I.M 

516 WM 9 ( I . J ) a UNITY(I.J) - WM3 ( I . J ) 

CALL L 1NV2FC WM9 . M. 10 .WM10 . 0 . WAREA2 . IER ) 

1FC1ER.NE. 129)GOTO 518 
WRITEC6.519) 

519 FORMAT C/5X. I - FD IS SINGULAR. RESULTS ARE INACCURATE ««««* 

I /) 

518 CALL VMULFFCWMI0.WM7.M.M.N. 10. 10.WMI 1 . 10. IER) 

CALL VMULFFC3.WM1 I .N.M.N.10.10.WM12.10.IER) 

DO 517 I a I.N 
DO SI 7 J a i.n 

517 ABF(I.J) a ACI.J) ♦ WM12CI.J) 

GOTO 512 

516 CALL VMULFFC3.F.N.M.L.10.10.WM5.10.IER) 

CALL VMULFFCWM5 .C.N.L.N. 10. 10.WM6. 10. IER ) 

DO 515 I a I.N 
DO 515 J * 1 ,N 
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515 ASF(l.J) * A ( I > J ) ♦ WM6 ( I > J ) 

GOTO 512 

513 CALL VMULFF(B.F,N.M.N.IO. 10.WM5. 10. left) 
00 510 I = l.N 
00 510 J = l.N 

ASF(I.J) = ACI.J) ♦ WMS(I.J) 

510 CONTINUE 



C 

C CHECK FOft CONSERVATION OF C"V OUftING DESIGN I TERAT ICNS 

C 

- 

IF C I SOLN . EQ . 3 JGOTO 512 

511 CALL VMULFFCC.VRS.L.N.N. 10. 10.CV.10. 1ER) 

512 WRITEC6.520) 



520 FORMAT IF SINGULAR VALUE ANALYSIS OESIREO. ENTER ” I 

1./. OTHERWISE ENTER ”2'* 

2 ) 



REAO( " . 53 0 ) 1SVA 
520 FORMAT C 1 1 ) 

CALL FRTCMSC 'CLRSCRN ') 

IF(ISVA.EG.2)G0T0 540 

C"""*** 

c 

c SINGULAR VALUE ANALYSIS OF OES 1 GN 

C 

C-*** 

C31 F(l.I) = -14.13705 

C F ( t * 2 ) = 3.5569 

C F ( l * 3 ) = 77.9429 

C F C l . 4 ) a -61.009 

C F(2. 1) = -0.05329 

C FC2.2) = -2.61465 

C F C 2 • 3 ) = .20053 

C FC2.4) s -15.53603 

531 CALL SVACA.B.C.D.F,UN1TY,N.M,L.W,SVM,SVMAX,SVM1 .SVMAX1 , 1FEED ) 

C**"*"'* 1 *******"*"'*"*****"* *-*****>♦ 

C 

C 01 SPLAY RESULTS 

c 



540 CALL FRTCMS( ’CLRSCRN ’) 

WR 1 TE ( 6 . 6 00 ) 

600 FORMATC///15X. ■ OES1GN RESULTS - * - « * •» - - - • , // ) 

I F ( I SOLN . EQ . 3 JGOTO 623 

632 WR1TEC6.60I) 

601 FORMAT ( //5X . ' * W MATRIX COMPUTEO OURING MOORE SOLN 

00 602 1 » l.M 

WRITE (6 . 603 )(WM3( I . J) . J=1 .N) 

603 FORMAT (1X.6CE12.5.1X)) 

602 CONTINUE 

633 WR 1 TE ( 6 . 6 3 I ) 

631 FORMAT(//5X, ' * “ *»» C-LOOP MATRIX. A ♦ 

00 640 1 = 1 .N 
WftITE(6.603)(ABF(I,J),J=l.N) 

640 CONTINUE 

WR I TE C 6 . 650 ) 

650 FORMAT C//5X. *"*»**• FEEOBACK MATRIX 

00 670 I = 1 . M 
WRITE(6.660)(F(I.J).J=1.L) 

660 F0RMAT(1X.5(2X.E12.5)) 

670 CONTINUE 

C SAVE 'F' SINCE LSVOF DESTROYS F 

00 651 I = 1 .M 
00 651 J = l.L 

651 FSAVE ( I . J ) = F ( I . J ) 

CALL LSVOF (FSAVE .10.M,L»UIF.I0.0.SF.WK. IER) 

X = SF ( 1 ) 

WRITEC6 . 695 )X 
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695 FCRMATC/5X. ’SPECTRAL NORM = * .£12.5) 

CALL EIGRFCA5F.N. 10. 1 ,25.26. 10.WK6. IER ) 

C F I NO CONDITION NUMEER OF OESIGN EIGENVECTOR MATRIX 

CA„L CONO(Z4.N.X) 

WRITEU.692 ) 

6°2 FCRMATC/5X. ’**-•*- OESIGN EIGENVECTOR MATRIX '*■*"’./) 

do b°: i = i.n 
WRITE! 6 . 620)!Z4( I.J) .J=I -N) 
t>?3 CONTINUE 

wR ITE C 6 .696 )X 

6°4 FORMAT ( /5X . '2 NCRM CONDITION NUMBER = ’.£12. 5) 

C NORMALIZE EIGENVECTOR MATRIX 

CO 671 J * 1 »N 
X s 9 . DO 
DO 672 I * l.N 

672 X - X * CREALCZ4 C I • J ) J » “2 * OIMAG (24 ( I . J ) 3 * *2 
CQ 671 I = l.N 

671 Z4(!.J) a 24CI ,J)/D5CRT(X) 

WRITE (6. 6 10) 

610 FORMAT ( /5X .’*•** * NORMALIZED DESIGN EIGENVECTOR MATRIX »«»»’,/) 

DO 630 I = l.N 
WRI7EC6.620)(Z4(I.J).JaI.N) 

629 FORMAT (8C1X.E9.21) 

630 CONTINUE 

CALL CCN0CZ4.N.XN) 

WR I ”E ( 6 . 6 96 )XN 
wfl ITE(6 • 690 ) 

690 f0RmaT(/5x. ’'•»-*» DESIGN C-LOOP EIGENVALUES /I3X . 

1 ’SEAL FART’ . 6X. ' IMAG FAR 1 ”./) 

CO 691 I = l.N 
WRITE (6. 156)1. ZS (I) 

691 CONTINUE 

I F C ISOLN. EQ . 3 )GOTO 915 
912 WRITEC6.R00) 

•500 FOR MAT (//5X. •>•'*•* <* E = <C><V> MATRIX AFTER DESIGN COMPLETE »***•,/ 

I5X . NOTE: PGM CHECK FOR MOORE ALGORITHM *«•*«’/) 

DO 910 I = l.L 
WRITE (6. 920 HCVCI . 

°20 FORMAT C1X.6(2X,E12.5) ) 

919 CONTINUE 
0 15 IF( ISVA.EQ.2 )GOTO 680 
WRITE! 6 • 93C ) 

930 FORMATC//I5X. ’ SINGULAR VALUE ANALYSIS OF OESIGN *•** *»'•*»’.// IX . 

I ’ FREO I * FG I * GF 

2.//.2X. ’ RaD/SEC max SIG MIN SIG MAX SIG MI 

3 SIG’ ./) 

DO °6 0 I a 1.210.10 

WRITE(6.«50) W(I ) . SVMAX ( I ).SVM(I J.SVMAXICI J.SVMKI ) 

959 FCR.MATC3X.F7. 2. IX. 4 (El 2. 5. IX) ) 

960 CONTINUE 

C GENERATE OATA file FOR S.V. PLOTTING 

CALL SVPLOTC5VM.SVM1 .W ) 

WRITEC 6. 1000 ) 

1000 FORMAT! //5X. ’ IF YOU ARE AT A ?EK6 18 CONSOLE ANO DESIRE <*****•, 

1 /5X, ’•«**«- A PLOT OF MINIMUM S.V. OF THE RETURN DIFF 

2 /5X. MATRIX JUST COMPUTEO; TYPE THE FOLLOWING 

3 /5X AFTER EIGENG COMPLETION «****’ 

4 /5X. ’"***" "PLOT” FOLLOWEO BY ’’OISSPLA SVPLOT FORTRAN”'* » 

5 /) 

680 IF ( I RECON . EQ . 2 JGOTO 960 

WR I "EC 6 . 9 70 ) 

970 FORMAT ( /5X .’ '*»'»>* OAMAGEO 8 MATRIX ***«♦’./) 

DO 971 I * I.N 

971 WRITEC6.90 ) (oDEL! I . J ) . J= I .M) 

WRITE(6. 972 ) 

9 72 FORMAT! /5X. ’ RECONFIGURED FEEDBACK GAINS "*«**’./) 

OO 973 I = I.M 

973 WRITE(6.99)!FDEL(I .J). J=I .L) 

WRITE! 6. 9 75) 
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975 FORMAT ( /5X ♦ * ** - * * RECONFIGURED NORMALIZED EIGENVECTORS *•"""’./) 

WR I TE ( 6 . 6 2 0 ) ( ( VRECON (I.J).J*1.N).I*1.N) 

WRHEC6.976 ) 

976 FORMAT (/5X, '""**** RECONFIGURED EIGENVALUES '*"""*./) 

WRITE! 6. 156 HI .EIGREC(I) . 1 = 1 .NJ 
WRITE(6,977 JSMREC.wREC 

977 FQRMATC/5X. ‘ MIN 3.V a '.E12.5.* < ** * « * . /5X , 1 - ** - « AT FREQ * *. 

1 El 2 . 5 . * •*««•./) 

WR I TE ( 6 . 9 78 ) 

978 FORMAT (/ 5X . ' ***** * RECONFIGURED C-LCOP MATRIX * ** ** ** ' . / ) 

DO 979 I = 1 * N 

9 7 9 WRITE (6. 603 ) ( A3FDEL ( I > J ) » J = 1 > N ) 

960 CALL RESULT ( A. 8 • C • F * FDEL • BOSL • Z4 . Z5 • L *M . N ) 

END 

C"**« . 

C 

C SUBROUTINE 3VA PERFORMS SINGULAR VAULE ANALYSIS OF 

C THE RETURN DIFFERENCE MATRIX OF THE DESIGNED SYSTEM. 

C IMSL ROUTINES RSCD: LEQT1C 

C E I GENS SUBROUTINES REQD: CMATML.CSVD 

C CDR V.F. GAV1TO VER 1.0 JANUARY. 1986 

C 

C - **** 

SUBROUTINE SVA(A.3.C.D.F.UNITY,N1 .Ml .LI . 14 . SVM . SVMAX . SVM 1 . SVMAX1 . 

1 IFEED) 

IMPLICIT REAL-8CA-H. P-Z) 

REAL-B A(10. 101.3(10. 1 0 1. C( 1 0. 1 01. UNITY (10. 101. WC2000 l.SVMC 2000 ) . 

1 S1C101.X1.YI . F { I 0 • 1 0 ) • SVMAX (2000 ) . X . 32 ( 1 0 1 . SVM1 (2000 ) . 

2 SVMAX 1(20001. WA (101* 0(10* 10) 

COMPLEX** 16 AC( 10. i 0 1 . SC ( 1 0 - 1 0 J • CC (10. 10 1 . WMC2 ( 10. 10 1 .WMC3 (10.10). 

1 GC ( 1 0 . 1 0 1 . U I ( 1 0 . 1 0 ) . V 1 ( 1 0 . I 0 1 . ROM ( 1 0 , 1 0 ) . WMC4 (10.10). 

2 WMC5(I0. 10).FC(10.10).RDM1(10.10).UI1(10.10).VI1(I0.101 

3 . DC ( 1 0 . 1 0 ) 

COMPLEX ** 16 WMC 1 ( I 0 . 1 0 ) . UN I TYC ( 1 0 . I 0 ) 

INTEGER N 1 .MI .Ll . IFEED 

DO 10 I a I . 10 

WA ( I ) a 0 . DO 

SKI) a 0 . DO 

52(1) = 0 . DO 

DO 10 J a 1,10 

AC ( I . J ) = (0. D0.0.D0 ) 

RDM(I.J) = (0.D0.0.D0) 

RDMl(I.J) = (0.00.0. DO) 

CC(I.J) a (0 . DO • 0 . DO ) 

UI(I.J) a (0. DO. 0.00) 

VI(I.J) a (0. DO. 0.00) 

UI1CI.J) = ( 0 . DO . 0 . DO ) 

VIKI.J) = (0.D0.0.D0) 

UNITYC(I.J) a ( 0 . DO • 0 . DO ) 

WMCI(I.J) a (0.00.0. DO) 

WMC2 ( I » J ) = (0.D0.0.D0) 

WMC 3 ( I , J ) = (0. DO. 0.00) 

WMCA(I.J) a ( 0 . DO . 0 . DO ) 

WMCS(I.J) = (O.DO.O.DO) 

3CC.JJ a (O.DO.O.DO) 

DC ( I . J ) a (O.DO.O.DO) 

GC(l.J) = (O.DO.O.DO) 

FC(l.J) = (O.DO.O.DO) 

10 CONTINUE 

00 45 I a i ,2000 

SVM(I) a 0 . DO 
SVMAX(I) a 0.00 
SVMl(I) a 0.D0 
SVMAX ( I ) = 0 . DO 
45 CONTINUE 

C FILL UP COMPLEX MATRICS WITH PROPER DATA 

DO ICO I = 1.N1 
UNITVC(I.I) = ( 1 . DO • 0 . DO ) 

WMCS(I.I) a (1. DO. 0.00*5 
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DO 100 J = 1 > N 1 
X = AC 1 .J) 

AC(I.J) = DCMPLXIX. 0.00 ) 

IOC CONTINUE 

DO COO I = 1 • N 1 
DO COO J = 1 .Ml 
X = B( I . J ) 
v = - ( J . 1 ) 

3CCI.J) = OCMPLXCX. 0.00 ) 

FCCJ. I ) = DCMPLX(Y.O.DO) 

COO CONTINUE 

DO 300 1 = l.U 
DO 300 J a 1 » N 1 
X = C ( 1 . J ) 

CC(1 . J) = DCMPLXCX. 0. DO 3 
300 CONTINUE 

DO CIO I = l.U 
DO CIO J a 1 .Ml 

CIO DCCi.J) = DCMPLXCDC 1 . J J .0.00) 

C AUGMENT (IF PECO ) C TO INVOKE A SQUARE RETURN D1FF MATRIX 

C PRESENTLY THE PROGRAM AUGMENTS WITH THE IDENTITY 

C IF (LI .EC.NI JGOTQ 350 

C INCEX = N1 - LI 

C DO 3C5 J * I . INDEX 

C CSC J*LI .J*L1) = (1. DO. 0.00) 

CC5 CONTINUE 

350 wen s l.o-oi 

C DISPLAY AUGMENTED F MATRIX FOR SVD 

C WRITEC5.510) 

CIO FORMAT ( 15X. ' AUGMENTED F MATRIX FOR SVD COMP «»»**./> 

C DO 311 J s l.MI 

C DO 311 K = 1.NI 

C XC 3 DREALCFCC J.K) ) 

C X3= DIMAGCFCC J.K) ) 

C WRITER. 310J.K.XC.X3 

C1C FORMATC2X. 'FCC . 12,’ . • .12, • ) = '.E1C.5.* * J’.EIC.Sl 
CI1 CONTINUE 

• DO 500 1 3 1,210 

DO 400 J s l.Nl 

DO 400 K s I.NI 

X = WCI) 

WMCICJ.O = OCMPLX(O.DO.X) «* UNITYCCJ.K) - AC (J.K) 

400 CONTINUE 

C * important note^. 

C - LEQTIC DESTROYS wmci AND 

C 3 REPLACES UNITYC WITH THE INVERSE 

C 3 OF WMCI 3 

C - 

CALL LEQTICCWMC1 .NI.10.UN1TYC.NI.I0.0.WA. I ER ) 

C WRITE(6.401) 

COI FORMAT ( IX . * <SI - A>-I ',/) 

C DO 402 J 3 l.Nl 

C wRITE(6.4I00)(UNlTVC(J.K).Kal.Nl ) 

C02 CONTINUE 

CALL CMATML ( UN I TYC . BC . N 1 . N 1 . M I . WMC3 ) 

CALL CMATML (CC.WMC3. LI .N1 .MI .GC) 

C COMPUTE <F> - <G> 

C DO 8000 J = I .Ml 

C WRITE(6.4I00)(FC(J.K) .Ksl.Nl ) 

C000 CONTINUE 

IF ( IFEED.EQ. 1 )GOTO 410 
IF(1FEED.EQ.C)G0T0 410 
DO 412 J * I. LI 

DO 412 K = l.MI 

412 GC(J.K) = DCCJ.K) ♦ GC(J.K) 

410 CALL CMATML(FC.GC.M1 .LI .MI ,WMC2) 

C W9ITEC6.4000) 

C000 FORMAT (IX. ’ <S 1 - A> 3-_i « B*./) 

C DO 4001 J 3 l.Nl 
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C WRITEC 6.4100 ) CWMC3C J.K ) .K*l .Hi ) 

C100 F0RMA7(8(E9.2. 1X.E9.2) ) 

COOI CONTINUE 
C WRITEC6.5000 ) 

COOO FORMAT ( IX * ' C * INV<SI - A> * 8’,/J 
C DO 5001 J * UNI 

C WRITE(6.4100)(GC(J.K).K»1.M1) 

COOI CONTINUE 
C WRITEC6 .6000 ) 

COOO FORMAT ( 1 X i ' r * G ' • / ) 

C 30 6001 J * 1.M1 

C *R I TEC 6. 4 100 HWMC2CJ.K) .K=l .Ml ) 

COOI CONTINUE 

C COMPUTE <G> * <F> 

CALL CMA7MLCGC.FC.Ll .Ml .Ll » KMC 4 ) 

C RESTORE THE COMPLEX IDENTITY MATRIX 

DO 450 J = l.Nl 
DO 450 K * l.Nl 
X = UNITYCJ.Kl 

UNITYCCJ.K) = DCMPLX ( X . 0 . DO ) 

450 CONTINUE 

C COMPUTE <I> * <F> * <G> 

DO 600 J = 1 , M 1 
DO 600 K a 1.M1 

RDM(J.K) = UNITYCCJ.K). ♦ WMC2CJ.K) 

600 CONTINUE 

C COMPUTE <I> ♦ <G> * <F> 

DO 650 J * 1 >L1 
DO 650 K a 1 .Ll 

RDM1CJ.K) a UNITYCCJ.K) * WMC4CJ.K) 

650 CONTINUE 

C WRITEC6.6101I.WCI) 

CIO FORMATC2X. *W( * . 12, * ) a ’.E1C.5) 

C WRITEC6.611) 

Cll FORMAT CSX, ’*** * RETURN DIFFERENCE MATRIX **»*’./) 

C DO 6 1C J a 1.M1 

C DO 612 K a 1 . Ml 

C XlaDREALCRDMCJ.K) ) 

C YlaDIMAGCRDMCJ.K ) ) 

C WRITEC 6.613 JJ.K.Xl ,Y1 

Cl 3 FCRMATC IX. 'RDM C * . 12 , * . * , 12 . * ) a '.E12.5.' ♦ J'.E12.5) 

Cl 2 CONTINUE 

C COMPUTE CSVD OF <I> ♦ <F> * <G> 

CALL CSVD C RDM. 10 . 10 . Ml .Ml , 0 .Ml .Ml .SI . UI . VI ) 

C COMPUTE CSVD OF <I> ♦ <G> * <F> 

CALL C5VDCRDM1 .10. 10.L1.L1 .0.L1 .Ll . S2 . UI 1 . V 1 1 ) 

C WRITEC6-800 ) I 

COO FORMATC/SX, ’SINGULAR VALUES FOR W(’,I2.') a’,/) 

C WRITE(6.700)CS1CJ).J=1 »L1 ) 

COO FORMAT C1X.6CE12.5. IX) ) 

C WRITE C6.615) Sl(Ll) 

Cl 5 FCRMATC/2X, ’MIN SINGULAR VALUE a ’.£12.5) 

SVMAXC I ) = SI C 1 ) 

SVMAX1 Cl) a S2C 1) 

IFCS1 (Ml J.LE.O. )GOTO 617 
IF(S2(L1 ).LE.O.DO)GOTO 617 
SVM ( I ) a SI (Ml ) 

SVMI Cl) = S2CLI ) 

GOTO 614 

617 WRITEC6.618) 

618 FORMAT C/12X. * **»»*»* RTN OIFF MATRIX IS RANK DEFICIENT**** 

SVMCI) a 9.9999990*09 

619 WCi*l) = WCI) *.50 

500 CONTINUE 

RETURN 

END 



C 

C SUBROUTINE CMATML (COMPLEX MATRIX MULT I PL ICAT ION ) 



) 
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c 

C COMPUTES: YY s aa * 88 

C I a s a OF ROWS IN aa 

C Lu. = a OF ROWS IN SS AND a OF COLUMNS IN AA 

C 13 = a OF COLUMNS IN SB 



SUBROUTINE CMATMLCAA.S8. lA.LL. 13. YY] 

CCMPLEX-U AAC10. 10 J.3BU0. IOJ.VYdO. 101 
INTEGER IA.LL.I2 
CO 30 I s 1 . IA 
DO C 3 J = 1.13 
YYC1.J) * (O.DO.O.DO) 

DO 10 INDEX = i.LL 

YY(l.J) s YY(I.J) * AACI. INDEX) - SBC INDEX. J) 

10 CONTINUE 

CO CONTINUE 

20 CONTINUE 

RETURN 

END 

c 

C SUBROUTINE csvd 

C COMPLEX SINGULAR VALUE DECCMPOSIT ION SUBROUTINE 

C 



S«BSOUTlN£ CSVD ( A . MM AX • NMAX . M . N. IP , NU . NV . S. U . V ) 

IMPLICIT REAL-8CA-H.P-Z) 

COMPLEX - 1 6 A ( MM AX . 1 ) .UCMMAX. 1 ) . VC NMAX. 1 ) 

INTEGER M.N.IP.NU.NV 
REAL-8 SCI) 

COMPLEX- 16 Q.R 

REAL-8 SC100) .CC100) .TC100) 

DATA ETA.TOL/1 -SD-8. 1 .D-31/ 

NP=N* IP 
N I = N * 1 

c 

C HOUSEHOLDER REDUCTION 
CC 1 ) a 0 . DO 
K = 1 

10 XI 3«* 1 

c 

C ELIMINATION of AC I .K). I*K*1 M 

Z=0.D0 
DC CO IsK.M 

CO Z3Z-DREALCA(I..O ) - - 2 ♦ D I MAG C A ( I , K ) 1--2 
3CK)=0.D0 

IF CZ.LE.TOL) GO TO 70 
C=DSCRT CZ 1 
3CK ) = Z 

W = CDASS C A ( < . K ] ) 

C= C I . DC . 0 . DO ) 

IF CW.NE.O.DO) QsACX.O/W 
ACK.K)*0*CZ*w) 

IF CK.EO.NP) GO TO 70 
DO 50 J=K1 ,NP 
O=CO.D0.0.D0 ) 

DO 30 IsK.M 

20 CsOoDCCNJGCAC I .K ))"AC 1 . J 1 
OsO/CZ-CZ-W) ) 

DO A0 I =K . M 

40 ACI.J)«A(I.J)-0«A(1.K1 

50 CONTINUE 

C 

C PHASE TRANSFORMATICN 

Q=-DCONoGCaCK.K ) )/CDA3S(A(K.K ) ) 

DO 60 JsKl ,NP 
60 A(K, J )=0-ACK. J) 

C 

C ELIMINATION OF A(K.J].J=K*C N 
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70 IF (K.EQ.NJ GO TO UQ 

Z=0.D0 

DO 80 J = K1 . N 

8 0 Z*Z*D9EAL(A(K.jn«H2*0IMAG(A(K.jn^2 

C(K1 1*0 .00 

IF (Z.LE.TOL1 GO TO 130 
Z=DSQRT (Z 1 
C(K1 ) *Z 

WsCDAES ( A C K • K 1 1 1 
G*( 1 -DO .0.00 ) 

IF (W.nS.Q.DOI 0=A(K.<1)/W 
A C X » K I ) =Q< (Z*H 1 
OO 110 I*K1.M 
Q*C 0 . DC i 0 . DO 1 
DO «0 JsKl.N 

90 QsQ+DCONJG (A (K . J ) )*A( I , J ) 

QsQ/(Z-CZ*W) ) 

DO 100 J«K1.N 

100 A ( I » J )=A( I .J)-Q»*A(K.J) 

110 CONTINUE 
C 

C PHASE TRANSFORMATION 

Os-DCCNJG(A(K,Kl ) ) /CDA8S ( A (K * K 1 ) ) 
DO 1Z0 I-Ki.M 
1Z0 ACI ,K1)=AU .<1 )<Q 
130 <*K1 

GO TO 10 
C 

C TOLERENCE FCR NE3LIGI3LE ELEMENTS 
1 A 0 EP3 = Q . DO 

DO 150 K=i,N 
3 (K 1 *8 (K 1 
T(K)*C(K) 

150 EPS-0MAX1 (E?S.SCK)*T(K) ) 

EPS=EPS«£TA 

c 

C INITIALIZATION OF U AN0 V 

IF CNU.EQ.O ) GO TO 180 
DO 170 Jsl.NU 
DO 160 1*1- M 
160 U(I.J)=C0.DC,0.D0) 

170 UCJ. J ] = ( 1 .DO , 0 .00 ) 

180 IF (NV.EQ.0) GO TO Z10 
DO ZOO J=1.NV 
DO 190 I * l • N 
190 VCI.J)s(O.DO.O.OO) 

200 VCJ. J)*( 1 .DO .0.00 ) 

C 

C OR OIAGONALIZATION 
210 DO 380 KK*1.N 
K=N 1-KK 
C 

C TEST FOR SPLIT 
220 DO 230 LL= 1 > K 
L*<* 1-LL 

IF CDA8SCT(L)).L£. EPS ) GO TO 290 
IF (DABS(S(L-1 n.LE.EPS) GO TO 2A0 
230 CONTINUE 
C 

C CANCELLATION OF £ CL 3 
2A0 CS=0 .DO 

SN* 1,00 
LI *L- 1 

00 280 I =L . K 
F = SN»T( I 1 
TCI)=CS«T( I 1 

IF CDA8SCF) .LE.EP3) GO TO 290 
H = S C I 1 

W = OSQRTCF*F*H'*H ) 



152 



sc : 

CSsH/W 

SNs-F/U 

1= CNU-£Q.O) GO TO C60 

so :so j - 1 » n 

X=3S£ALCUCJ.L1 ) ) 

V=SR£al C 'J C J • I 1 ) 

JsOC. M ?LXCX-CS*v^s.M.0.33) 

:s: uc j. i )= gc m =lx(v-c3-x-sk.c . z: i 

SaQ I- CHP.S5.N) GO ’0 3SQ 
SO S73 JsNl.s^ 

C = AC^I ,o ) 
ft - A ( 1 . J ) 

ACL1 .J)*C*CS*R-SN 
S73 ACI,j)=5-ZS-0-SN 
232 CONTINUE 
C 

C TEST rCR CONVERGENCE 
C?3 w=SC<) 

I* CL.EC.O GO TO 560 
C 

c cp:g:n shift 

X = S C L ) 

V = SCX-1 ) 

3*T C <- 1 I 
-sT«) 

= s c C v -y )«C v . w j* c G- H )« C 3 * « J) /( Z . 3 C - h * v ) 
3=SS2RTCr«F*l .SC ) 

:= (s.lt.c.soi 3*-g 

c s ( ( X— W )“ CX**)* fV/(r*G 1— H 1 »H 1/X 



C eft STE 3 

CS-1 .30 

SK=i .02 

Ll-L*l 

DO 550 I=L1 .< 

3*7(1 ) 

v*S ( I ) 
h=Sn- 3 
GsCS-G 

hOSCRTCH-w-f-f j 

1(1-1 

CSsR/w 

SSsH/Ui 

F = X »C3 -3 » 3N 

G=G-CS-X"5N 

HsV*SN 

Vsv-CG 

IF (NV.SC.O) GO *0 510 
SO 500 J= 1 «N 
XsSftEALCVCJ. i-1 ) J 
W*0«£ALCVCJ.I) J 

VC J. 1-1 )*DCMPLXCX*CS-W«5N. o .DO ) 
500 VC J. I )*DCMPmU*C$-X“SN.0.D0 ) 

513 «=SSSOTCH-h-F«F) 

SCI-lJsW 
CS = -/H 

SNsH/W 

F=CS*3*SN-v 

XsCS^v-Sh-G 

IF (HU. £2. 0 1 GO TO 550 

DO 520 J*l.N 

v=S»£ALCUCj. 1-1 )) 

H = 3®£Ai_ (U( J • I ) ) 

UCJ.I-1 )=SCHPLXCY»C3*w-SN,3.D0 ) 
222 UC J . * JsCCHPLXCW'CS-y-Sm.S.DC ) 

333 IF (N.£0.NPJ GO TO 353 
SO 3AC JsNl.HP 
3=A( 1-1 . J } 
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R=ACI.J) 

AC t-1 , J JsOhCS'RxSN 
340 A C I . J ) =R “CS-0*SN 

350 CONTINUE 

T (L ) =0 . DO 

TCK)=F 

$(K)=X 

go to ::o 
c 

C CONVERGENCE 

360 IF CW.CE.C.DO) GO TO 380 
SCK 3 *-W 

IF CNV.EO.O) GO TO 380 
OO 370 J=1 .N 
370 VCJ.K)=-VCJ.K) 

380 CONTINUE 

c 

c SORT SINGULAR VALUES 
DO 450 K- 1 .N 
G=-l .00 
J = K 

DO 390 I=K.N 
IF (S(I).LE.G) GO TO 390 
G = 5CI ) 

J=I 

390 CONTINUE 

IF CJ.EQ.K) GO TO 450 
SCJ )=S(K) 

SC,< )=G 

IF CNV.EO.O) GO TO 410 
DO 400 1*1. N 
0=VCI . J) 

VCI r J)=VCI .K) 

400 V C I • K ) *0 

410 IF CNU.EQ.O) GO TO 430 
DO 420 1=1. N 
Q*U(I .J) 

UCI,J)=UCI,K) 

420 U C l . K ) =0 

430 IF CN.EO.NP) GO TO 450 
DO 440 I=N1 . NP 
0 = AC J . I ) 

ACJ. I ]*ACK.I) 

440 A CK . I ) = 0 
450 CONTINUE 
C 

C BACK TRANSFORMATION 

IF CNU.EQ.O) GO TO 510 
00 500 KK= 1 ,N 
K=N1-KK 

IF CBCK ) .EO.O.DO) GO TO 500 
0=-ACK.K)/COABSCACK.K) ) 

DO 4 6 0 J = 1.NU 
460 UCK . J )=0*UtK . J) 

DO 490 J = 1 . NU 

o=co.oo.o.oo ) 

DO 470 I =K »M 

470 0=0 ♦DCONJG CACI.K))“UCI.J) 

0=0/(CDA8SCACK,K) )-8CK) ) 

DO 480 I=K,M 

480 UCI.J)=U(I.J)-0*ACI.K) 

4<»0 CONTINUE 
500 CONTINUE 

510 IF CNV.EO.O) GO TO 570 

IF CN.LT.2) GO TO 570 
DO 560 KK=2.N 
K=N1-KK 
K 1 =K ♦ 1 

IF CCCK1 ). EO.O.DO ) GO TO 560 



Q=-CCGN JG ( A ( K • K 1 ) )/CDA8S(A(K.Kl 3 3 
DO SCO J= 1 .MV 
SCO V ( K 1 »J)=Q*V(K1 * J 3 

DO 550 J = 1 • MV 
Qs(O.DO.O.DO) 

DO 530 I =K 1 . M 
530 Q = Q*A(K.n-V(I.J) 

Q=Q/(CDA3$(A(K.K1 1 )*C(K1 3) 

DO 540 I=K1.N 

54 0 V(I.J)=VC:.J)-C"DCONJGCA(K.m 
550 CONTINUE 
560 CONTINUE 
570 RETURN 

END 



C SUBROUTINE SVPLOT: GENERATES DATA -ILE FDR USING DISSPLA 

C TO PLOT MINIMUM SINGULAR value of the return 

C DIFFERENCE matrix VS. FREQUENCY 

c 

WWWMMWWWWWM MW 

SUBROUTINE SVPLOT tSVM.SVMI .W) 

REAL -8 W(2000 ) .SVM(2000 3 .SVM1 (2000 3 
DIMENSION WP ( COCO 3 . SVMP(C000 3 . 3VMlP(2O00 3 
C CONVERT DATA TO SINGLE PRECISION FOR 013SPLA COMPATIBILITY 

CO 10 I = 1.C0C0 
W?( 1 ) = SNGLIHC I ) ) 

SVMP(l) = SNGL(SVMd)) 

SVM 1 P ( 1 3 = SNGL15VM1 (D) 

10 CONTINUE 

DO 20 1 * 1 .2000. C 

UP1TEC7.30)WP(I ) ,SVMP(I J ,SVM1P(1) .WP(1*1 3 . S VMP ( 1 ♦ 1 3 . SVM 1 P ( 1 ♦ 1 3 
30 FORMAT(3CEIC.5 . IX . El C . 5 ) 3 

CO CONTINUE 

RETURN 

END 



c * 

C SUSRDUTIN KVECT: CALCULATES FEEDBACK GAINS VIA » 

C KAUTSKY. ET. AL. ALGORITHM (1985) •* 

C * - 

**** 

SUSRCUTINE KVECT(A.3.C.D.EIGD.F.N1.M1 .Ll.VD.V. 1FEED) 

IMPLICIT REAL *8 ( A-H . P-Z 3 

REAL *8 A(10.10).3(10.10).C(10.10).F(10.10).UT(10.10).CS(10.10). 

1 $(10) .WK(CO) .33(10. 10) .SM(10 . 10 J . VT( 10. 10 ) .CUT( 10. 10 ) .SCC 10 ) . 

C RZ(10. 10 3 .WAPEAl (C50 3 .WAREAC (250 3.0( 10. 10 3 .CSS ( 10. 10 3 . 

3 UTV( 10. 10) .RI1NV( 10. 10 J . VI (1 0 . 1 0 3 . WK4 ( 2 0 3 .CSSlNVdO. 10 3 . 

4 SI ( 10 3 .$C( 10 3 . HK1 ( 20 3 • HKC (CO 3 . WA f 20 3 . S8( 10 3 .WK3(S0 3 . BG 1 ( 1 0 . 1 0 3 . 

5 VDST(10.10).VDlSTd0.10).U(10.10).UO(10. 10).U1T(10. 103.UK10.10J . 

6 UNITY (10. 10).H(2Q0O J .SVM (20 00 3 ,SVMAX(20 00 ) .$VM1 (2000J. 

7 UOT (1 0 . 1 0 3 . RNULL (10.103. SVMAX 1 ( 2000 3 . SP I ( 1 0 . 1 0 3 . 8S I (1 0 . 1 0 3 . 

8 SMC (10. 10). SV (13. 10). oCHK (10.10). WAREA3 ( 250 3 . $X ( 1 0 3 , CG 1 (1 0 . 1 0 3 
COMPLEX M 6 EIGD( 1 0 3 . V ( 1 0 . 1 0 3 . UN 1 TYC d 0 . 1 0 3 .AML (10. 10 3 . U1TC ( 1 0 . 10 3 

1 .RNULLCI10. 10) .WV(10) .WVIC(IO) .RES(10. 10). VSAVEdO. 10). 

2 VDSdO. 1C) .VDlSdO. 10) .UVDSflO. 10) .VVD5(10. 10) .UVDIS(10. 10). 

3 WD1S(10.10).Z1 - VD(10. 10) .EIGDMdO. 10 3.EVIC10.10). VEV 1(10.10). 

4 VMA (10.10). UOTC (10. 10). UTVC (10. 1 0 3 . R2 1NVC ( 1 0 . 1 0 3 .FC d 0 . 10). 

5 VDK10. 10).VIV(10. 103.U0CC10. 1 0 3 . COTCd 0 . 1 0 3 .Cl TC( 1 0 . 1 0 3 . 

6 RZU (10. 10 3 .SPIC( 10. 10 3 .Z1NVCC( 10. 1 0 3 . FCZd 0 . 1 0 3 . DCFQ (1 0 . 1 0 3 . 

7 =C3( 10. 10 3 .DC(10. 10 3 .RZCdO. 10) .C1NVZ( 10. 10 3 .DCFC1 (10.10) 

8 . XVS( 10 . 1 0 3 . XV ( 1 0 . 1 0 3 . XVU( 1 0 . 10 3 . XVV ( 1 0 . 1 0 3 . SXC (1 3 . 1 0 3 . 

9 X0T(10. 10) .SXX(10. 10 3 .RU(10. 10 3 .RVdO. IQ) .RVV(10. 10 3 .RX(10. 10 3 
COMPLEX* 1 6 RXZ(l0.10).XVTd0.10).XE(l0.10).AC(l0. 10 3 . AX ( 1 0 . 1 0 3 . 

1 XCHECK(10.10).RVU(10.13) 

INTEGER M.Ml.Ll.lWK(lOCO). 1C(10).1DG(1 3. IDG 1(20). 1CK20). 

1 IRON (10. 10). IFLT (10 3.1 EL EM (10). 1LCG. I FEED 

REAL-4 SRCBJ.EPS.SNVdO) ,VLB( 100).VUB( 1 00 3 . RA (20.40 3 . G C 1 J.DF(CO). 
1 NK3 ( 3000 3 . X3J d 00 3 . CDB J . GC ( 20 3 . E . UR . UC . EPSR . EPSC . E 1 . E2 
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CHARACTERS title 



* 

c 

c initialize matrices a variables 

c 

* 

EPS = 0. 

E = 0. 

El a 0. 

E2 = 0. 

00 10 I = l. 10 
S( I) = 0.00 
SKI) = 0 . DO 
SCCI) = 0.00 
SBC I) = 0.00 

seen = o.oo 

SXCI) a 0.00 

wven = o.oo 

OF (I) = 0. 

IFLTCI) = 0 
SHV(I) s 0. 

00 10 J = 1.10 

utci.j) * o.oo 

V1CI.J) 3 0.00 
CUT(I.J) = 0.00 
C3CI.J) = 0.00 
SMCI.J) a 0.00 
ACCI.J) = (0.00.0.00) 
2PICI.J) = 0.00 
SSICI.J) a 0.00 
VOICI.J) = CO. DO. 0.00) 
EIGDMCI.J) a CO. DO. 0.00) 
EVICI.J) S (0. DO. 0.00) 
VEVICI.J) = (0.00.0.00) 
VMACI.J) a CO. 00. 0.00) 
UTVCI.J) = 0.00 
UTVCCI.J) = (0.. DO. 0.00) 
VOSCI.J) = 0.00 
VOSTCI.J) 3 0.00 
VOISCI.J) a 0.00 
VOISTCI.JJ = 0.00 
UCI.JJa 0.00 
UOCI.J) a 0.00 
UOTCI.J) a 0.00 
UCTCCI.J) = (0.00.0.00) 
UKI.J) a 0.00 
U1TCI.J) a 0.00 
U1TCCI.J) = (0.00.0.00) 
RNULLCI.J) = 0.00 
RESCI.J) a CO. 00. 0.00) 
RZINVCI.J) = 0.00 
RZINVCCI.J) = CO. 00. 0.00 ) 
UNITYCI.J) a 0.00 
AMLCI.J) = (0.00.0.00) 
SMCCI.J) a 0.00 
SVC I .J ) a 0.00 
BCHKCI.J) a 0.00 
RACI.J) = 0. 

IROWCI.J) a 0 
UNITYC(I.J) = CO. 00.0. DO) 
CCTCCI.J) a CO. 00. 0.00) 
ZINVCCCI.J) a (O.oo. 0.00) 

esse I . J ) a 0.00 

CS3INVC I , J ) = 0.00 
CINVZCI.J) = CO. 00. 0.00) 
EPICCI.J) a (0.00. 0.00) 
RZ'JCI.J) a (0. DO. 0.00) 
FCZCI.J) = CO. DO. 0.00) 
OCFCCI.J) a (0. 00. 0,00) 
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:fcki.j) * (c.oo.c.co) 



FC(I. 


j) 


a (0.30.0.30) 


c CSd 


• j) 


= (0.30.0.30) 


xvud 


. j ) 


a cc. 30. 0.30) 


xwc: 


.jj 


= (0.30.0.30) 


xct ( : 


.jj 


= (0.30. 0.30) 


sxc( : 


. jj 


a CC. 30. 0.30) 


SXX( I 


.jj 


a (0.20.0.30) 


PJCI. 


ji 


= (0.30.3.30) 


PVCI. 


j ) 


= (0.30.0.30 


PVV( I 


. jj 


S (0.30. 0.30) 


PV'J( I 


. jj 


a (0.30.0.30) 


sxd . 


j) 


= (0.30.0.20) 


»xCd 


. j) 


a c.23.0.30 ) 



10 CONTINUE 

30 1C I = I .CO 
XKCI) = 0.30 

-cm » c.co 

SCO a 0. 

WACI] a 0.30 
«<4(I) a 0 . 00 
IC nKCCI ) = 0.30 

30 11 I a 1.N1 
20 11 J a 1 .Ml 
3SIC.J) a 3CI.J] 

11 SSd.J) a 2d. J) 

30 13 I a I. 350 
HAPEA3CI) a 0.30 
-A3£AC( I) a 0.33 
13 -A3EA1C) = 0.30 

30 5 I = 1.100 
VLB C 1 1 = 0. 

VUS(I) a 0. 



5 


X3JC) a 


0. 






30 


14 I a ] 


1 . 1000 


14 


IUK(I) = 


0 






30 


15 I = : 


1.3003 


15 


WKSCI) = 


0.0 





seinit ut. builc complex a s *ind ovc of s 



DC CO I a 1 ,NI 
UNlTYCI.I ) = 1 .20 
C’JT (I. I) S 1.30 
L'NITVCCI.II a (1.00.0.30) 

UTCI.I) = 1.30 
30 CO J a 1 .Nl 

ACCI.J) a 3CMPLXCACI.JJ.0.30) 

CALL LSV3FC3S. 10.M1 .Ml ,UT. 1Q.N1 .S.WK. I£R ) 





CALL 3ANKDC 


BS.UT.S.N1 




call fstcmo 


( ’CLPSCPN 




IF ( . ne - 3 


3 )SCTG 25 




-»ITEC6.C4 ) 


I Sank 


24 


FQSMAd/SX 


3 IS sank 




GOTO 43 




C 


DECOMPOSE 3 




C 


FIND U 




25 


(SANK a Ml 






CO 21 I = 1 


• N 1 




30 21 J = 1 


. N 1 


21 


UCI.J) a UT(J. I) 




C 


FIND U3 S UO 7 


PANS=>OSS 




DO 22 I * 1 


. Nl 




DC 22 J a i 


.Ml 



SANK a ’.12 



U0( I . J ) = U( I . J ] 

UCC(I.J) a OCMPLX(UOd.J).O.OO) 
U0T( J. I ) a U( I . j ) 
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22 UOTCCJ.I) * OCMPLXCUCI.JJ.O.OO) 

C FINO Ul 3 U1 TRANSPOSE 

00 23 I * 1.N1 
00 23 J = Ml ♦ I .Nl 
UKI.JJ = U(1 .J) 

UITCJ-M1.1) = U(I.J) 

23 UITCCJ-Mi.l) = OCMPLXCUC I . J ) .0.00 ) 

00 30 I = 1 .Ml 

00 30 J = 1 .Ml 

VI (I .J) a 3SC I . J 3 
30 CONTINUE 

C WRITE U FOR 0E3UG 

C WR 1T£ ( 6 . 50 0 ] 

COO FORMAT C /5X . ' u FCR B = UOV«"T) «**"*•'./) 

C 00 550 J = 1 • N I 

C WRITE (6. 525 HUCJ.K) . Ksl .Nl J 

525 FORMAT C1X.6CEI0.3* IX) ) 

C50 CONTINUE 

C WRITE UOT ANO UIT FOR OEBUG 

C WRITEC6.600) 

COO FORMAT ( /5X . ’ *«*« UOT ««-«’./) 

C 00 650 J a 1.N1 

C WRITEC6.525HU0TCJ.Kl.Ksl.Nl) 

C50 CONTINUE 

C WRITEC6.700) 

COO FORMAT (/5X, 1 **<**♦ UIT **««',/) 

C 00 750 J a 1 .Nl 

C WRITEC6.525JCU1TCJ.K) .K=I ,NI ) 

C50 CONTINUE 

*********** *<** - ***** * 

c 

C FINO RZ * 0IAGCLAM01 LAM02 . ...>V«"T 

C 

C * ********* *********** ******** - ******** 

00 AO I a 1 .Ml 

00 AO J * I .Ml 

AO VT ( I , J ) a V1CJ. I ) 

00 50 1 a i.Ml 
50 SMC I . I) = SC 1) 

CALL VMULFFCSM.VT.M1 .Ml .Ml . 10 . 1 0 .RZ . 10 . 1ER ) 

00 A 1 I a 1 . Ml 
DO A1 J : 1.M1 

A 1 RZCCI.J) a OCMPLXCRZC I . J ) . 0 . 00 ) 

c* ***************************************************** *********** 

c 

C COMPUTE U*S1GMA*V TRANSPOSE FOR PGM DE3UG 

C 

C * * * * * ********************************** ****** *********** 

00 B25 J * I .Nl 
825 SMCCJ.J) = SCJ) 

CALL VMULFFCSMC.VT.N1 .Ml . Ml . 1 0 . I 0 . SV . I 0 . I ER ) 

CALL VMULFFCU.5V.N1 .Ml .Ml . 10. 10.BCHK. 10. 1ER ) 

WRlTECo .BOO ) 

800 FORMAT C/5X. ‘ **** U * SIGMA « VTRAN ****'./) 

00 850 J = 1.N1 

URITEC6.S25)C8CHKCJ.K).Kal.Ml ) 

850 CONTINUE 

************** ********** 

c 

C "SELECT" EIGENVECTOR MATRIX 

C CPROGRAM EITHER REAOS IN THE OESIREO SET FROM SYSTEM OATA 

C FILE OR WILL REAO LATEST DESIGN EIGENVECTOR MATRIX FROM 

C PREVIOUS COMPUTATION) 

C***************************************************-***** ********* 

A2 WRITEC6-69) 

69 FORMAT C/10X. ' **** PRESENTLY IN KVECT , ENTER *T* IF YOU 0ES1RE 



l’./lOX. *«««- TO USE PREVIOUSLY COMPUTEO EIGENVECTOR MA- <* 

2. /10X. ’««*'* TRIX OR ENTER "2" IF YOU OESIRE TO RECOMPUTE'* 

3. /10X. ***** THE EIGENVECTOR MATRIX. « 
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c.n 

R£AD(». 1050 1IOPT 
IFCIOPT.EQ.Z1GOTO 67 
DO 68 J * l.Nl 
DO 63 < = l • Ml 
READ(D.66 1VIK.J1 

66 r CP M AT C 2E 12.5 ) 

08 CONTINUE 

Call FRTCM5C ’CLRSCRN •) 

GOTO 66 

67 wRITEU.70) 

70 FCRMA~(/5X. * PRESENTLY IN XVECT SUBROUTINE, 3ASE /5X. 

1 ----- EIGENVECTORS ARE FROM DATA FILE. /5X 

2 ’---- PRESENTLY CHECKING IF THEY ARE MEM- 

3 ----- OF ALLCWAcLE SUPSPaCE. 

51 DO 75 I * l.Nl 

DO 75 J = l.Nl 

75 V(I.J) = VDC.J) 

- ""«*««•«* ----- 

C 

C CHECK IF DESIRED 3ASE RIGHT HAND EIGENVECTORS ARE MEMBERS OF THE 

C NULL SPACE OF <U1 TRANSPOSE - <A - LAMOHA I - I» 

C 

-------- - --------------- 

ICCNJG = 0 
DO 55 I = l.Nl 
Z1 = E1SDCI 1 
DO 5b J = l.Nl 
DO 56 K » 1 ,N1 

So AMLCJ.O = DCMPLXtAC J. 0.0.00) - Z1 -UNI TVC ( J .< 1 
IF( IRANK.EQ.M1 1G0T0 6 3 
IY = n l- i R ank 
GOTO 66 

63 I Y= N 1 - Ml 

66 CALL CMATML(U1TC. AML. 1Y.N1 .N1 .RNULLC) 

DO 57 J 3 l.Nl 

57 WVCJ) = VCJ. I) 

59 CALL CMATML ( RNULLC. WV. IY.Nl . 1 .WV1C) 

DO 53 J * 1 . IY 

58 RESCJ.I 1 = WV1CCJ) 

C "ISO D-NCRM OF THE RESIDUAL 

y = 0 . DO 
DO 7 6 J = 1 . IY 

76 Y = y ♦ DREAHReS(J. I DIMAG(RE3(J. I ) 1--D 

R03J = DSCRT(Y) 

C IP 2-NORM OF RESIDUAL IS OK — JUMP OUT 

IF(RC3J.LE.l.O-06)GOTO 55 



C 

C IF eigenvalue IS CCMPLEX. Then PERFORM the optimization 

C ONE TIME FCR both THE EIGENVALUE AND ITS CONJUGATE. 

C 

C-- - -- -- --- 

IF(D1MAG(Z1 J.EQ.G.DOIGOTO 960 
IFCCCNJG.EO. 1 JGCTO 97 
ICONIC = 1 

960 URITE(6.1C03)I. RC3J 

1000 FORMAT ( ///5X RESIDUAL TOLERANCE EXCEEDEO FOR OESIREO ---- 



1*./5X. •---- BASE EIGENVECTOR NO. ’.ID.* ENTERING AOS 

/5X, ----- WITH ROB J = ‘ . El 2 . 5 • 

3./5X. ----- C-LOOP EIGENVALUES HAVE BEEN SPECIFIED.. 

6 ‘ . /5 X . ----- ENTER NO. OF ELEMENTS OF THE EIGENVECTOR 

5*./5X. ----- WHICH MUST BE ARBITRARY. 

6 * ./) 



R£AD(-.1C50)IELE 
CALL FRTCMSC *CLRSCRN ') 

IF(IELE.EQ.O)GOTO 3 <>2 
961 WRITE! 6 . 1001) ISLE. I 

1001 FORMAT C/5X. * ---- ENTER ROW NUMBERS OF THE '.IQ.* ELEMENTS 
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1. /5X, OF EIGENVECTOR NO . 1 . 1 2 . * WHICH ARE ARBITRARY 

2. /5X. IN 12 FORMAT. EXAMPLE: "0102" 

5./J 

READ C 1 002 HIROUCJ, I 3 • J = 1 . IELE ) 

1002 FORMAT (1012) 

CALL FRTCMSf 'CLRSCRN •) 

C* -* 

c 

C SET UP FOR ADS OPTIMIZER CALL IN SINGLE PRECISION FOR RESIDUAL 

C 



962 SRCBJ = 5NGLCR03J) 

INFO = 0 
ISTRAT = 0 
IOPT = 5 
IONED * t 
NDV a 2"N1 
nCON 3 0 
IGRAD = 0 
IPRINT * 1000 
NGT s 0 
NR A = 10 
NCOLA = 10 
C SET 50UN0S 

C ASK ALLCWEO TOLERANCE ON CESIGN EIGENVECTORS 

IF ( IELE . EQ. 0 3 GOTO 1007 
100B UJRITEC6. 1003 ) 



1003 FORMAT (/SX. * »*#*** ENTER »EAL UPPER BOUND OF ARBITRARY ELEMENTS 

l'./5X. IN "FI z. 5" FORMAT. ENTER "l" FOR NO SOUND. *««*«') 



REAO( » • 1020 JUR 
WRJ7EC6. 1004) 

1004 FORMATC/5X. * ENTER IMAG UPPER BOUND OF ARBITRARY ELEMENTS 

P./5X. •**** IN "FI 2. 5" FORMAT. ENTER "1" FOR NO BOUND. ****'} 

READ ( " ♦ 1 020 ) UC 
IFCUR.NE. I . E*06 )GOTO 1006 
UR 3 0 . 1E*21 

1006 IF ( UC . NE . 1 . E* 0 6 JGOTO 1005 

UC 3 0 . 1E*2 1 

1 0C5 IFCIELE.EQ.Nl )GOTO 1013 

1007 WRITEC6. 1010) 

1010 FORMAT ( /5X, * ENTER ALLOWEO EIGENVECTOR TOLERANCE IN "F12.5" FO 



1RMAT FOR THOSE EIGENVECTOR ELEMENTS <«««*, /SX , 

2 1 *•«*««« WHICH ARE NOT ARBITRARY. *«**•,/) 



WRITEC6. 101 1 ) 

1011 FORMA T ( 5X. • *•««•» ENTER TOLERANCE CN REAL PART -*-«'./) 

REAOC ■< . 1020 1 EP3R 
1020 FORMAT (F12 .5 ) 

WRITEC6. 1012) 

1012 FORMAT C5X, ’ h ENTER TOLERANCE ON I MAG PART « ) 

READ ( * . 1 02 0 JEPSC 

1013 CALL FRTCMSI ’CLRSCRN ’) 

JJ s 0 

00 77 J * 1 .NOV-1 » 2 
JJ : JJ M 
KF I NO * 0 

IFCIELE.EO.OJGOTO 1026 

1014 DO 1025 K = 1 . IELE 

IFCJJ.NE. IROWIK. I ) )GOTO 1025 

KFIND = 1 

VUB(J) = UR 

VUB ( J ♦ l ) = UC 

VLB ( J ) = -UR 

VLB ( J* l ) = -UC 

1025 CONTINUE 

IFCKFINO.EO. 1 )30TO 1027 

1026 X = DREALCVDUJ. I ) ) 

Y = OIMAGC VO( JJ . I ) ) 

VU3CJ) 3 SNGLCX) * EPSR 
VUS(J-l) s SNGLCY) ♦ EPSC 
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VU3C J 1 = $n<SLCX1 - E 3 S5 
VL3CJ-11 = SnGw ( V 1 - E ? SC 
i err xi = 5 qsa_:wvc,»*i] 

v i = dimagclvcjj n 

S-VCwJ 2 S.NGLCX11 
S-VCJ*ll = SNGLCVl] 

: g ; j i = o 
:cc--ii = c 
c-c-i * 3 
c- c~,-i i = a 
77 GGn _ :n„E 

sa Ciw. a;sc : s=c . :3'3 a- 5 :g?t. :cneg . :?5:nt, :sfac.ngv.nccn.swv.vl3. 

! VG*3 . S9GS J • 3 . 1 GG . N37 . IZ . G c . 3 a . n* a . sCGLA . -KZ.ZZ21. I-< . L 1 3 C 1 
JJ = 3 

GG '3 ^ = l.sGV-l.C 

JJ = JJ • 1 

-JVC JJ 1 = G w:> '_XCS-VCJl.SwvC.,*lll 
73 VCJJ.n = '-VC JJ 3 

I e CiN e C. £3. 0130*3 £4 
C PEE7ALJ*7£ CS-£CT:vE =BNC7!C.m 

CA GMATM._C5NJLuC.-V. iv.Nl . 1 .-Vi Cl 

go s: j = i.:v 
3G 3E3CJ.Il ? -V : G C J 1 
v * a.ca 
GO =3 J = l.lv 

33 v = v - G5£ALC3£GC-. ! 31--G * CI*aGC3£SC J • I 11 --2 
5G3w = GGG5-CV1 
GSGEJ = GNGLC=G3-1 

c ccn-:n*j€ ags c=~:-:rA*:cN c^ini^ging «gsji 

SC~3 34 

54 -5I-£:6.S513C2J.I 

35 ^GS-A-C/IX. * •*** CSJSGTIVS FuNC'ICN VAlj£ = *.£13.3.* /IX. 

I cep EIGEnvEGTG* nC. ‘.IC.* 

: = C 3 1 “AS C Z l 3 -EG.2.G: IGC’G 55 
I S C ICCKJ3 -£C . I 1SCTQ 55 

97 DC 9 3 < * I.Nl 

rccNjG * c 

98 v c < . : i = gccnjgcvcx. i i 

53 CCn t :njE 



C GIG=LAV 3£SCL’S CF <u1~’'<a-la^Dha-I»*CESI3£D SASH EIGENVECTORS 

c 



-»:"£C5. 
=G 3 w at c //5 x . * • 



61 

63 





./Sx, 




./Sx, 




./£X, 


A» • * * 


• ✓ 5 x . 


S-*-‘ 


./Sx, 


9 ** * * 


. / 5 x , 


7 « * 


./SX, 


- 


• / 1 


CO 


63 I 


w9 ITEC6. 


1 A " C IX 


• 3 C£; 


IN^E 




S£A 


cc - . ; 


-A7CII1 


:“c:sa- 


GO 


93 J 


GO 


92 < 


[.<1 = 


VCJ 



Tt-E =CLLC*-:nG m A t, :x 3I3PLAVS T'-E "nEasnESS" CF- 
”“£ DESIGN EIGENVECTORS *3 ’-£ allG'-aSLE SUH- 
G 3 AGE FG5 ~-£ OvS'E'-i UNGE5 analvSIS IN CGL~ w n 
-G- W A' . 1“ --IS ••NcASNEGS*’ -a -3 :x is nct GaTIS- 
SAC-C3V. ENTER M l“. OEC’ WILL NOW USE *-£ DES- 
IGN EIGENVEC'CSS as r-E NEW DESIRED 3 AGE EIGEN- 
VECTORS and 3 £=£a- C^IMIGER ROUTINE. C~-E 3 -ISE 
£n”£5 -G“. nCTE: “CE 3 0" = 1.5-06 



C -InD INVCV1 INVERSE GF C a ':-:GEG EIGENVECTORS 

C 73 OX -c» InvE 3 ‘I3:l!Ty 
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:u 

?a 

c 

c 

c 

c 

c 

c 

c 

c 



00 ?A J = 1.N1 

DO K = l.Nl 
IFdOPT.cO.l )GOTO 211 
WRITECC.&A 3 V (K . J ) 

VOCJ.K) = VCJ.O 
VSAVECJ.K) = VCJ.K) 

DEBUG WRITE STATEMENTS 
TITLE= ‘ V ' 

CAL- CWR ITE (V . Nl . Nl . TITLE ) 

CALL CWRITECUNITYC.N1 .Nl .TITLE) 

CALL LEQT IC ( VSAVE . N 1 . 1 0 . UN I TYC . N 1 , 1 0 . 0 . WA . IER ) 
CALL CWRITECUNITYC.Nl .Nl .TITLE) 

CALL CMATML ( UNI TYC , V . Nl .Nl .Nl.VIVJ 
CALL CWR ITEfVlV.Nl.Nl .TITLE) 

RESTORE UN I TYC AND REPLACE WITH VD! 

DO CIO 1=1 .Nl 
DO CIO J = l .Nl 
VDI (1 . J) = UNITYCCI . J) 

UNITYCCI.J) s DCMPLXC UNITY ( I , J ) . 0 . DO ) 



FIND C-NORM CONDITION OF OPTIMICED EIGENVECTOR MATRIX 



DO 7? I * 
DO 7« J = 
VDS(I.J) 



1 .Nl 
1 .Nl 

r V( I . J ) 



VDIS(I.J) * VDI(I.J) 

CALL CSVDCVDS. 10 . 10 .Nl .Nl . 0.N1 .Nl , SI . UVDS . WDS ) 

CALL CSVDCVDIS. 10.10.NI.N1.0.N1.N1 . SC . UVD IS . WDIS ) 
CONDC = S1C1)«SC(I ) 

CALL FRTCMSC ’CLRSCRN • ) 

WR I TE ( 6 . 85 )CONDC 

FORMATC/5X. ’ h**.* C-NORM CONDITION NO. OF EIGENVECTOR MATRI 

l* IS ‘ • E1C . 5 * ./) 

WPITEC6. 10A0 ) 

FORMAT ( //5X. ' « « « « IF C-NORM CONO NO. IS UNSAT; 

1. ENTER ’T' TO MIN COND<V> VIA ADS. 

C. ENTER "C" TO RETURN TO AOS MIN OF RE- 

3. ’ SI DUAL OF <V> . 

6. ’ IF C-NORM COND NO. IS SAT: ENTER”'” 

5./) 

READC*. 1050 )ICOND 
FORMAT! II ) 

CALL FRTCMSC ‘CLRSCRN *) 

IFCICOND.EO.C )GOTO 51 
I F ( I COND . EQ . 3 )GOTO 91 



SET UP OPTIMIZER CALL FOR C-NORM CONDITION NO. 
NOCON s a OF ORTHOGONALITY CONSTRAINTS 
N3SC0N r s OF ALLOWABLE SUBSPACE CONSTRAINTS 
NCON = TOTAL a OF CONSTRAINTS 
CAUTION'!! NOT OPERATIONAL 



COSJ = SNGL (CONDC) 
INFO = 0 



ISTRAT = 0 
I OPT a A 
IONED = 7 



NSSCON = 

C WRITECb . 1070 ) 

CO 70 FORMAT (//5X , ' " 
C l /5X . ’ hh 



* ENTER NUMEER OF ORTHOGONALITY CONSTRAINTS 
IN IC FORMAT. EXAMPLE: “Oa” 



,/5X 
. /5X 
,/5X 
,/5X 
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C 2 ) 

C READC * . 1002 JNOCON 

NCCN = NS5C0N 
I GRAD a 0 
:?r:nt = coco 
ngt = 0 

MR A 3 10 

MCOLA = 10 
NCV = c-ni«ni 
IY = NI - Ml 

through the condition number 

HE/3HE DESIRES TO USE THE 
IF THEY DESIRE TO USE Th£ 

C EIGENVECTOR MATRIX COMPUTED DURING THE RESIDUAL MINIMIZATION. 

-.RITE!*. 1071 ) 

1071 FOR M AT(/5X» ’ ***"•* IF THIS IS THE INITIAL CONDITION NUMBER PASS 



l'./ 5 X, ENTER " 2 " . IF NOT AND YOU DESIRE TO REENTER - - * * 

2 *./ 5 X, •>»*-- THE OPTIMIZATION WITH THE UPDATED £ I GENVECTCR '«“•«- 

3 * . /5 X • *«*«•«' ENTER ” 2 " . OTHERWISE ENTER "I** WHICH WILL RE-«**« 

A ’ . / 5 X . START THE OPTIMZaTICN WITH THE EIGENVECTOR 

5 ' . / 5 X • *•«'*«-« MATRIX IN "DESVEC” DATA FILE. 

6 * ./) 



READ( **. 1050 ) 1 ICON 
IFC I ICON .EC . 2 JGOTO 1072 
DO 1073 J a 1 .NI 
DO 1073 < = I.NI 
1073 VCJ.K) = VDCJ.K) 

C A 3 K ALLOWED TOLERANCE ON EIGENVECTOR ELEMENTS 

1072 *R I ”£ ( 6 , I CSO 3 

1080 FCR M ATf/ 5 X. ' + '•** aT LEAST “WO EIGENVECTORS MUST FLOAT DURING THIS 

I optimization. ENTER THE COLUMN NO.S OF THE EIGEN- 

0 VECTORS WHICH may "FLOAT” IN ASCENDING ORDER IN 

3 »**»' ,/ 5 X, ‘ 12 FORMAT. EXAMPLE: " 0102 " WILL FLOAT EV « U I. 

4 ./ ) 

R E ADC * * 1 002 H IFLT C I ) . 1 = 1 .NI ) 

WRI 7 EC 6 . 1003 ) 

REaDC* • 1020 )UR 
WRITEC 6 . 1004 ) 

READ C * . 1 020 )UC 

IFCUR .NE . I . E* 0 6 3 GOTO 1082 



I 08 I 


UR 


= 0 . IE *21 


1082 


IF 


CUC.NE. I .£» 0 o )GOTO 1084 


108 3 


JC 


= 0 . IE* 2 I 


1084 


WP 


I TECS. 1010 ) 



WRITEC6. 1011 ) 

RSADC-. I0203EPSR 
WRITEC6. 1012) 

RSADC-. I0203SPSC 
J = I 

0 REINIT and SET BOUNDS 

DO 130 K = I.NI 
IClCK) * 0 
DFCK) = 0. 

DO 130 L = I.NI 
X = DREALCVCL.O ) 

Y = DIMAGCVCL.O ) 

XBJCJ) = SNGLCX) 

XBJ C J* 1 ) = SNGLCY) 

DO 131 II = I.NI 

1 3 I IFC IFLTC II J.EO.OGOTO 200 

VUBCJ) = XBJCJ) * EPSR 
VU3CJM ) = XBJ C J* I ) ♦ EPSC 
VL3CJ) = X3JCJ) - EPSR 
VL3CJ-I ) = XBJCJM ) - EPSC 
J = J ♦ 2 
GOTO 130 

200 VUBCJ) = UR 

VU8CJ-1) = UC 
VL5CJ) = -UR 



C IF THIS IS NOT THE FIRST ® ASS 
0 MINIMIZATION. ASK THE USER IF 
C CURRENT EIGENVECTOR MATRIX CR 
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VLB(J*i) * -UC 
J = J ♦ 2 
130 CONTINUE 

C DEBUG WRITE STATEMENT 

C WRITEC6 ,2000) 

COOO FORMAT C /5 X. ' «*«•«* VECTOR 3CUNDS FOR ADS "<•**'./) 

C DO 2001 J = l.NDV 

C WRITE (6 .2002 )VL3 ( J ) . XB J ( J ) .VUBC J ) 

C002 FORMAT (1X.3CE12.5.2X) ) 

C001 CONTINUE 

C DEFINE CONSTRAINTS AS NONLINEAR, INEQUALITY 

DO 135 I = l.NCCN 
135 IDG 1 C I ) = 0 

C SET BOUNDS ON CONSTRAINTS 

C WRITEC 6. iOoO ) 

C060 FORMAT ( /5X, ’ *"*« ENTER ALLOWED TOLERANCE ON NON-ORTHOGONALITY «--- 
C l'./5X. OF EIGENVECTORS IN DECIMAL FORMAT. «•**- 

C 2 ' » / ) 

C READ ( * . 1 020 )E 

WRITEC6 . 1062) 

1062 FORMAT ( /5X . ENTER NEW DESIRED EIGENVALUES FOR CONDITION »"«<• 



I ' » /5X » '***« no. MIN. ENTER IN SAME ORDER AS DATA FILE. «*• 

2 ’ • /5X . *»*<•>» NOTE: EIGENVALUES MUST 3£ ENTERED IN SAME 

3',/5X. ORDER AS CORRESPONDING EIGENVECTOR. IF El- ««• 

A'./SX, ' *»*" GENVALUE CCRRESPONDS TO a "NON-FLOATING'* 

S'./5X. '*••** EIGENVECTOR. IT SHOULD REMAIN THE SAME AS *«* 

6',/SX. '«««* ITS INPUT VALUE TO MAINTAIN DESIGN RQMT5 . »»» 

7 * ./ ) 

DO 1063 J = 1 .N1 
WR I T£ ( 6 . 1 Q6A )J 

1 0 6 A FORMATC/IOX. * EIGENVALUE NO. '.12.* /5X .* REAL PART s*./) 

READC*.I065)X 
1065 FORMAT (F 12 . 5 ) 

WRITEC6. 1066) 



1066 FORMAT (5X . ’ I MAG PART ='./) 

READC " . 1065 ) Y 
SIGD(J) = DCMPLX ( X • Y ) 

1063 CONTINUE 

WRITEC6. 1061 ) 

1061 FORMATC/5X. * ENTER ALLOWEO TOLERANCE ON ACHIEVABLE SUB- 

l'./5X. *•*--« SPACE CCN5TRAINT3. THIS VALUE CORRESPONDS "" 

2 ’ i /5 X i 70 THE ALLOWABLE EUCLIDEAN DISTANCE BETWEEN 

3*./5X, THE DESIRED EIGENVECTOR anD THE ACHIEVABLE - * 

A ' . /5X . SUBSPACE CORRESPONDING TO THE EIGENVALUE EN- <“• 

5 1 . /5X i ■*-** TEPED ABOVE. "» 

6 ' ,/) 

READ ( * » 1 020 )£1 

CALL FRTCMS C'CLRSCRN ’) 

C OPTIMIZE 

190 CALL ADSIINFO. I3TRAT. IOPT. IONED. IPRINT. IGRAD.NDV.NCON.XBJ. 

1 VLB.VUB.CC8J.GC. IDG1 .NGT. IC1 .OF.RA.NRA.NCOLA.WK3.3000. IWK.1000) 
C EVALUATE OBJECTIVE S CONSTRAINTS 

L = 1 

CO l A 0 J = 1.N1 
DO 1 A 0 K * l.Nl 

V(K.J) = CMPLX (XBJ(L).XBJ(L*1 ) ) 

VSAVECJC.J) = V(K.J) 

L = L ♦ 2 
1 A 0 CONTINUE 

CALL LEQT1CCVSAVE.N1 . 10.UNITYC.N1 . 1 0 • 0 , WA . IER ) 

DO 1A2 J = l.Nl 
DO 142 K » l.Nl 
UC VDICJ.K) = UNITYC(J.K) 

00 1 A 5 J * l.Nl 
DO IAS X = l.Nl 

1A5 UNITYCCJ.K) = DCMPLX ( UN ITY C J . K ). 0 . DO ) 

CALL CNSTRNCN1 .GC.XBJ.E.El . NCCON . A . B . U 1 TC . E I GO . UN I TY . I Y . UN I TYC 
1 • I FLT ) 

DO 150 J = l.Nl 
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DO ISO < = 1 * N 1 
VDSCJ.K) = VCJ.K) 

150 VD1SCJ.K) = VDl(J.K) 

CALL CSVDCVDS. 10. 10.N1 .Nl .O.N1 ,N1 .SI .UVDS. VVDS) 
CALL CSVDCVD1S. 10. 10.N1.NI.0.N1 .N1 . 32 . UVD IS . VVD1S ) 

condc = sic; i-sccn 

C CALL NCPMCV.Nl ) 

C CALL NCPMCVD1 .Nl ) 

lFCISPO.cQ.OlGOTO ®2 
COSJ = SNGLCCOND2) 

GOTO 190 

C« - 

C 

C FIND <VX5MXV31> *••••» NOTE: VD1 * INV<V> 

C 



91 30 80 1 ■ 1.N1 

80 E1GDMC I . 1 ] = E1GDC 1 1 

CALL CMATMLCEIGDM.VDI .NI .N1 ,N1 ,EV1 ) 
CALL CMATMLCV.EVI .Nl ,Nl .Nl .VEVI 1 
DO 90 1 * 1 » Nl 
DO 90 J * 1.N1 

90 VMAC1.J1 = VEV1CI.J) - DCMPLXCAC l.J) . 0 . DO ) 
C FIND 3VD CF C 



DO 231 


: j 


= l.H 


DO 231 


L K 


= 1 .Nl 


CS3CJ- 


>K ) 


* CCJ.K) 



231 CSCJ-K) = CCJ.O 

CALL LSVDFCCS. 1Q.L1.N1 .CUT.10.L1.SC.WK*. 1ER1 

CALL RAnKDCCS.C’JT.SC.LI .N l.COTC.ClTC.CINVCC.IRANKC.CGl ) 

HR 1TE ( b . 235 ) 1 RANKC 

235 FORMAT C/5X. '«“'**♦ C M ATR IX HAS RANK * '.ID.' ««««*./) 

IF ( IRANK .EC .Ml .AND. 1 RANKC. EQ.N1 )GOTO 22 9 
IV = Nl - IRANK 

CALL FEEDEF C A . 3 .C . V . VDI . EIGDM. BGI .U1TC.CGI.N1 .MI. LI .IV. 1FEED.FC) 
GOTO 228 

229 CALL CMAT,ML(U0TC.VMA.M1 .Nl ,N1 .UTVCJ 

C« «««««•« * 

c 

C FIND INVERSE<R2> S FEED8ACK GAINS 

C 



IK CALL LlNV2=CR2.Ml.i:.R21NV.l .WAREA2. 1ER ) 

DO 96 J * 1 • M I 
DO «b < = 1.M1 

«b R2INVCCJ.K) = DCMPLX CR2INV C J .K ) . 0 . DO ) 

CALL CMATMLCR2INVC.UTVC.MI . Ml .Nl .FC ) 

C M OD I FV FC IF OTHER than FULL STATE FEEDBACK 

IFC I FEED .ED. 1 JGOTO 223 

237 CALL CMATMLCFC.2INVCC.M1 .Nl . 1 RANKC. FC2) 

CALL CMATMLCFC2-C0TC.M1 . 1RANKC.L1.FC) 

238 IFCIFEED.EC.OGOTO 228 

DO 232 J = 1 >L1 
DO 232 K * i .Ml 
-CSCK.J) = FCCK.J) 

232 DCCJ.K) =• DCMPLXCDC J . K ) , 0 . DO ) 

CALL CMATMLCDC.FC.L1.M1 .LI .DCFC) 

DO 231 J * 1 .LI 
DO 233 K * 1 .LI 

23 3 DCFCICJ.O = UNITVCCJ.K) ♦ OCFCCJ.K) 

CALL LECT1CCDCFCI .LI . lO.'JNITVC .LI . 10 . 0 . WA . 1ER ) 

CALL CMATMLCFCS.LN1TVC.M1 .LI .LI. FC) 

DO 23* J = 1 .Nl 
DO 23* K = 1.N1 

23* UNITVCCJ.K) = DCMPLX C UN 1TV C J . K ) . 0 . DO ) 

- * 

C 

C FLAG USER IF COMPLEX FEEDBACK GAINS ARE COMPUTED 

C 
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Cl 



220 

C»*> 

c 

c 

c 

C""' 



c 

coo 

c 

c 

C2 0 
CIO 

c 



2:0 

260 



C 

C 

C 

c 

c 

c 

c 

c 



265 



266 



DO 220 J = 1 .Ml 

DO 220 K = 1.L1 
TIMAG a DIMAGCFC(J.K) ) 

IFCDAB3CTIMAG1.GT.1.O-061GOT0 221 
GOTO 220 

X a DIMAGCFC! J.K1 1 

WRI7EI6.222 1 J .K . X 

FORMA T( / 5X » ‘ h <* «. n WARNING! F C ' , 12 . 1 . ' - 12 . ' 1 HAS AN "«««*. /SX* 

1 •..»«- imaginary PART = ‘ .EI2.5./5X. 

2 EIGENVECTOR MATRIX MAY BE ILL CONDITIONED 

3 1 

CONTINUE 



SORT OUT REAL PARTS OF * MATRIX 



DO 132 J = 1.M1 
00 132 K = l.Ni 
F(J.K) = 0REAHFCCJ.KJ1 
WRITEC6. 100 1 

FORMAT ! / 5X » ’ ** » *• * F MATRIX RESULTS FROM KAUT5KY ALGORITHM ,/] 

DO 110 I a 1 . Ml 

WRITE (6. 120HFCI.J1.J- l.Nil 

FORMAT! 1X.6CE10.3. 1X1 1 

CONTINUE 

FIND MINIMUM SINGULAR VALUE IN FREQUENCY RANGE .01 - 100 R/S 

CALL SVACA.B.C.D.F.uNITY.NI .M l .Ll . W.3VM.SVMAX.SVM1 . 3VMAX 1 . IFEED ) 

XI = 20. DO 

DO 230 I = 1.200 

IFCSVMC I 1 .GT.Xl 'GOTO 230 

3MIN = SVMC I } 

X2 = W(I] 

XI a SMIN 
CONTINUE 

WRITEC6.2601SMIN.X2 

FORMA TC/5X. ’ * ** * MIN 3.V. OF RDM » '.£12. 5. * *»*•*•*•' ./5X . 

1 c RE0 . OF MIN. S.V. a * .E 12 . 5 . ’ »»»» ‘ . /5X . 

2 '»***• enter "i M to optimise the s.v. «-•*•**. /5x, 

3 ENTER ”2" TO EXIT KVECT. •*•»«•**,/) 

READC “.10501 ILQG 

IFCILQG.EQ.21G0T0 133 



SET UP OPTIMIZER CALL FOR MINIMIZING MULTI-VAR I ASLE 

KALMAN INEQUALITY FOR R = IDENTITY. ONLY BUILD ONE 

DESIGN VARIABLE VECTOR AND UPPER/LOWER SOUNO VECTOR 

PER COMPLEX EIGENVALUE: PRESENTLY ' ONLY REAL CASES ARE HANOLED 



CALL FRTCMS! ’CLRSCRN '1 
WRITE! 6 .265 1 

FORMAT!/5X. ' **** ENTER NO. OF ITERATIONS DESIREO FOR AOS *•*****’. /I 
REAO! ** . 10021NITER 
CALL FRTCMS! ‘CLRSCRN ’ 1 
WRITEC6.2661 

FORMAT ! /5X » ’ * " *« *• ENTER MIN. S.V. TOLERANCE FOR ADS ««««•,/) 
READ!**. 10201SVTOL 
CALL FRTCMS! ‘CLRSCRN ‘1 
INFO = 0 
ISTRAT = 1 
IOPT = 1 
IONED = 2 
NCON s N 1 
IGRAD » 0 
IPRINT = 2200 
NGT = 0 
NR A s 10 
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NCOLA = 10 
NOV a 2«NI«Nl 
IV a N1 - Ml 
ITER = 0 

C SPECIFY E1GENSTRUCTURE 

C normalize EIGENVECTOR MATRIX first 

CALL NORM C V . N 1 ) 

00 253 I = 1.N1 
AR1 7£( 6 ,255 ) l 

255 FCRMATC//5X. * -*«** ENTER NO. OF ELEMENTS OF EIGENVECTOR '.12.* 

r./5X. WHICH ARE ARBITRARY. --*•«*'./) 

250 READC ** « 1050 ) IELEMC I ) 

CALL FRTCMSC 'CLRGCRN *) 

CO 260 I = 1 * N 1 
WR 1 7E C o « 1 00 1 ) I ELEM ( I ) . I 
2b 0 READ ( * . 1C02)( IROWCJ. 1 ) .Jal . IELEMC I ) ) 

CALL FRTCMSC 'CLRSCRN ’) 

C SET SCUN2S 

WR1TEC6. 1003) 

READ C * . I 023 ) UR 
WRITEC6. 1004) 

READC". 102Q)UC 

CALL FRTCMSt 'CLR3CRS ■) 

1FCUR.NE. l.E*0S )GOTO 200 
UR = 0 . 1 E -2 1 

200 IFtUC.NE.! .S-Qo)GOTO 210 
JC a 0 . 1 E*2 1 
210 WRITECb. 1010) 

wRITECo. 1011 ) 

REAOC-.10Z0)E?3R 
WRITECb. 1012) 

READC *.1020 )E P SC 
Call frtcmsc 'clrscrn *j 
C WRITECb. 219)UR.UC.E?SR.E?SC 

CI° FORMAT ( /5X . ’ UR = * .E12.5./5X. * UC * 1 . El 2 . 5 . /5X . * EPSR = '.E12.5. 

C I /SX.'EPSC a • . E12 . 5 ) 

J = 1 

CO 320 II a 1 . N 1 
DO 220 JJ a 1 . N 1 
DO 220 « = 1 . IELEMC 1 1 ) 

IFCJJ.EO.IROwCKK.il ))GOTO 225 
320 CCNT1NUE 

GOTO 240 

225 VU3CJ) a UR 

VUB C J ♦ 1 ) a UC 
VL3CJ) = -UR 
VL5CJM) = -'JC 
J * J * 2 
GOTO 230 

240 X = CREALCVCJJ. 11 ) ) 

Y s DIMAGCVCJJ. II ) ) 

VUB C J ) a SNGLCX) * EPSR 
VLB C J * 1 ) a 3NGLCV) ♦ EPSC 
VL3CJ) = SNGLCX) - EPSP 
VL3 C J * 1 ) = 3NGLCY) - EPSC 
J s J * 2 
220 CONTINUE 

C DEFINE CONSTRAINTS AS LINEAR INEOUAL I TY 

CO 335 1 a l.NCCN 
225 1DGIC1 ) = 2 

C SET BOUNDS ON CONSTRAINTS 



WRITEC6. 1061 ) 

READ C " . I 020 )E 1 

CALL FRTCMSC ‘CLPSCRN •) 



C 


fill - 


UR 


DESIGN VARIABLE VECTOR 


221 


JJ a 1 








00 


245 


II = 1 .N1 




DO 


in 

M 

►i 


KK a 1.N1 



X a DREALCVCKK. II)) 
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Y 5 DIMAGCVCKK. ID) 

XBJCJJ3 * SNGLCX3 
X8JC JJM ) = SNGL(Y) 

345 JJ = JJ ♦ 2 

c DEBUG WRITE 

Ir( 1NFO.NE.OJGOTO 349 
WRI7EC6 .248 3 

34B FORMAT (/5X» ’ “**“*« ENTERING ADS WITH TwE FOLLOWING *“**'./) 

DO 346 I = l.NDV 

WRITE (6. 347 3VLSU) .XBJC I 3 .VUBC I 3 
34 7 FORMAT! IGX. 2 (E 1 2 . 5 . 3X 3 3 

346 CONTINUE 

C OPTIMIZE 

249 CALL ADSC INFO. ISTRAT, IOPT. ioned. iprint. IGRAD.NDV. NOON. XEJ. 

I VLB. VUB.COBJ .30. IDG1 • NGT . 1C 1 . DF . RA . NR A . NCOLA . WK3 . 3 000 . I Wit. 1000 J 
C EVALUATE OBJECTIVE FUNCTION AND CONSTRAINTS 

ITER s ITER * 1 
JJ = 1 
ICONJ * 0 
DO 350 I * 1 . N I 
DO 250 J * 1 • N 1 

352 VCJ.I) = CMP LX ( XBJ ( JJ 3 . XBJ C JJ * 1 3 3 

250 JJ = JJ ♦ 2 

c NORMALIZE eigenvector matrix 

CALL NORM ( V . N 1 3 
DO 251 I ~ I * N 1 
DO 351 J s I .Nl 
351 VSAVE ( I - J 3 = V( I . J 3 

CALL LEQT ICC VSAVE- Nl , 1 0 . UN I TYC . Nl . 1 0 . 0 . WA . I £R 3 
CALL CMATMLCE1GCM.UNITYC.N1 ,Nl .Nl .EVl 3 
CALL CMATMLCV.EVI .Nl .Nl ,N1 , VEVI 3 
DO 355 I = l.Nl 
DO 355 J * l.Nl 
VDICI.J) * UN I TYC C I. J 3 
UNI TYC C I . J 3 3 DCMPLXCUNITYC I ,J) .O.DO 3 
355 VMACI.J3 3-DCMPLXCAC I . J 3 , 0 .DO 3 * VEVl Cl • J 3 
CALL CMATMLCU0TC.VMA.M1 .Nl .Nl , UTVC 3 
CALL CMATMLCRZINVC. UTVC-Ml .Ml ,N1 .FC3 
TITLE 3 ’ EV ' 

C CALL CWRITECV.Nl .Nl .T1TLE3 

C CALL CWRITECVDI .Nl .Nl .TITLE) 

DO 260 1 = 1 . M 1 
DO 36 C J 3 l.Nl 
360 FCI.J3 = DREALCFCCI.J) 3 

CALL CNSTRNC.N1 ,GC. XBJ. E. El . NOCON , A . B . Ul TC . E 1 GD . UN I TY . I Y . UNI TYC . 
1 1FLT) 

CALL SVACA.B.C.F.UNITY.Nl .Ml . L 1 . w . SVM . SVMAX . SVM 1 , SVMAX 1 3 
XI 3 20.00 
DO 265 I = 1 .200 
IFCSVMCI 3 .GT.X1 3GOTO 365 
SMIN s SVM ( I 3 
X2 a WC 1 3 
XI = SMIN 
365 CONTINUE 

COSJ a SNGLCSMIN) -1.0 
CALL FRTCMS ( * CLRSCRN ’ 3 

WR 1 TE C 6 . 3 7 0 3 CO 3 J . SM I N . X2 . GC ( 1 3 . GC C 2 3 . GC C 3 3 . GC C 4 ) 



370 FORMAT ( / 5X . * * * “ * C3J = 

1 * w # * * MIN S.V. a '.£12.5.* AT FREO = '.E12.5./5X, 

2 CONSTRAINT 1 a ' .E12.5 ./5X. * CONSTRAINT 2 = 

3-E12.S ./5X. • CONSTRAINT 3 = * . £12 . 5 . /5X . • «• “ * CONSTRAINT 4 * 

4 . E 1 2 . 5 . / 3 



I F C I NFO . EO . 0 . OR . ABS ( COB J 3 . LT . SNGL C SVTOL 3 3GOTO 9 1 
IFC ITER .GT. NITER 3 GO TO 91 
366 GOTO 349 

C WRITE RESULTS OF KVECT FOR FURTHER USE IN RECONFIGURATION 

C STUDIES. 

133 DO 400 I = l.Nl 

WRITER. 401 3 CVC I .J 3. Jal .Nl ) 
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401 

400 



FORMAT(lX.4£I2.5 ./IX.4E12.5 ) 
CONTINUE 



410 
415 
420 
4 30 
435 



C' 

c 

c 

c 

c 

c 

c 

c 

C' 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c« 

c 

c 

C" 

CO 

c 

CO 

c 

c 

c 

CO 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



c 



DO 410 I * I.N1 

HRI7EC a .401 HEIGDMC I . J) .J = l ,NI ) 
DO 415 I = l.Ml 
HRITEC9.4Q1 HRZCCl .J).J*1 .Ml ) 

DO 423 I = l.Nl 
U-R17EC9.401 JtUOC(I.J).J»l .Ml ) 

DO 450 I = l.Ml 
WRITE(«.401 HFC(I.J).J=1.N1 ) 

DO 435 I = l.Ml 
HRITEC9.431 )(FCI.J).J«l .Nl ) 
RETURN 
END 



Subroutine cnstrn : computes linear, inecuality ccnstraints 

for OPTIMIZING the 2-NORM CONDITION NO. 
CF THE DESIGN EIGENVECTOR MATRIX AND/OR 
MINIMIZING THE MULTI-VARIABLE KALMAN 
INEQUALITY RELATION. 



SUBROUTINE CNSTRNCN1 .G.X.E.EI . NOCCN , A , 8 . U1 TC . E I GD . UN ITY , 

I IY.UNITYC. IFLT) 

IMPLICIT REAL-3CA-H. P-Z) 

REAL-8 AC 10. 10) .BC10. 1 0 ) . UNITY! I 0 . 1 0 ) 

CCMOLcX - lb UNI TYC CIO. 10). UlTC CIO- 10). El GO CIO). WM 1(10. 10). 
I RNC10. 10J.WV1 CIO) .WV2CI0) -ZI 
COMPLEX -8 VXC2C0) 

REAL-4 GC20).XCl00).c.EI.E2 

INTEGER NI.NOCON. IY.IFlTC 10J.NDV. INDEX 

NDV s 2-Nl-Nl 

J * I 

DO 5 I = I. NDV- I. 2 

VX(J) * CMPLXCXC I ) .XC I *1 ) ) 

J = J ♦ 1 

IFCNI.EQ.2JGOTO 10 
IFCNl .£Q.3)GOTO 20 
IF CN1 .EC. 4 )GOTO 30 
IFCNl .E0.5 )GCTO 1000 
IFCNl .EQ. 6 )GOTO 1030 
IFCNl .EQ.7)GOTO 1000 
IFCNl .EQ.8 JGOTO 1033 



ORTHOGONALITY constraints 



GC 1 ) 


S 


CA8SCVXC 1 J-VXC3 ) 


* 


VX C 2 ) - VX C 4 ) ) - 


P 




GOTO 


1000 










GCI ) 




CABSCVXCi J-VXC4) 


♦ 


VX C 2 ) - VXC 5 ) ♦ 


VXC 3 ) -VX C 6 ) )- 


E 


GC2 ) 


* 


CA8SCVXC1 J-VXC7 ) 


♦ 


VXC1J-VXC8) ♦ 


VXCi ) - VX ( 9 ) )- 


E 


GC3 ) 


= 


CA3SCVXC4 1-VXC7 ) 


♦ 


VXC5J-VXC8) * 


vx(6 )*vx(«n- 


E 


GOTO 


1000 










GCI ) 


s 


CaBSCVXC I ) -VXC5 ) 


♦ 


VXC2J-VXC6) ♦ 


VX C 3 ) - VX ( 7 ) ♦ 


VX ( 4 ) -VX ( 8 ) 


1 




) - E 










G C 2 ) 


* 


CABSCVXC1 ) - VX C 9 ) 


- 


VXC21-VXC10) ♦ 


VX ( 3 ) - VXC 1 1 ) 


- 


1 




VXC4 J^VXCIZ 


) ) 


- E 






GC3) 




CA23CVXCI )-VXCI3) 


♦ 


VX (2 ) " VX ( 14 ) 


♦ VX C 3 ) -VXC 1 5 ) 


* 


1 




VXC4 )-VXC 16 ) ) 


- E 






G C 4 ) 


- 


CASGCVXC5)-VXC9) 


♦ 


VX(b)-VXClO) * 


VX C 7 ) - VXC 1 1 ) 


♦ 


1 




VX C8 ) -VX (12 


) ) 


- E 






GC 5 ) 


= 


CA3SCVXC5 )-VXC13) 


♦ 


VX( 6 ) -VX C 1 4 ) 


♦ VX C 7 ) -VXC 1 5 ) 


* 


I 




VX C 3 ) -VX (lb) ) 


- E 






GCb) 


= 


CA8SCVXC9 )-VXC 13) 


♦ 


VX CIO) - VX (14 ) 


♦ VXCI 1 ) -VXC 15 ) ♦ 


I 




VXC 12 ) -VX (lb )) - E 
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c ALLOWABLE subspace constraints 

c 

C*«**"«* 

1000 LL = 1 

KK = 1 

DO 31 I = I. Ml 
21 a EIGD(I) 

DO 32 J = 1 . N 1 
DO 32 K = 1 .N1 

32 WMl(J.K) » OCMPLX(ACJ.K) .0.D0 ) - 21 *UNITYC ( J * K ) 

CALL CMATML(U1TC.WMI . I Y , N 1 , N l . RN ) 

JJ = 1 

INDEX a I * N1 * 2 

DO 35 LL a KK . INDEX- 1 , 2 

WVl(JJ) = CMPLX(X(LL ) -X(LL*n ) 

JJ = JJ * 1 

35 CONTINUE 

KK a INDEX * 1 

CALL CMATML(RN.WV1 , IY.N1 , 1 ,WV2 ) 

Y I a 0 . DO 
DO 36 II = 1 . IY 

36 Y1 a Yl ♦ CDA3S(WV2( II) ) 

G C I 1 = SNGL(Yl) - El 

31 CONTINUE 

RETURN 

END 



c 

C SUBROUTINE CCNTRL: DETERMINES CONTROLLABILITY OF COMPLEX 

C O-LOOP EIGENVALUES 

c 

CMtMIMMMrf - - 

SUBROUTINE CCNTRLC A » B • UN IT VC «N1 »M1 . IC r R . EIG » 1 1 ) 

IMPLICIT REALMS ( A- H . P-2 1 
REAL’S S(10) .A( 10. 10 ) - B( 10. 10) 

COMPLEX « 1 6 UN I TYC ( 1 0 . 1 0 ) . WMC 1 ( 1 0 . 1 0 ) . WMC2 ( 1 0 . 1 0 ) . WMC3 ( 1 0 . 1 0 ) . 
1EIG ( 1 0 ) .WMC A (10.10). WMCS (20.20) .21 .22.23 .U( 10 . 10 1 . V( 10 . 10 ) 
INTEGER N1 .Ml. ICTR( 10KI1 
21 a £IG( II ) 

DO 10 J a 1 . N 1 

10 WMCl(J.J) = Z 1 ’ UN I TYC ( J . J ) 

DO 20 J = 1 . N 1 
DO 20 K = 1 . N 1 

WMC2CJ.K) a WMCl(J.K) - 0CMPLX(A( J.K) .0.00) 

20 WMC 3 (J.K) a UNI TYC (J.K) 

C CALCULATE SLAMDHA ( I ) 

DO 30 J a 1 • N 1 
DO 30 K a 1 . N 1 
30 WMCS (J.K) = WMC2CJ.K) 

00 A0 J a 1 ,N1 
DO A0 K - 1 .Ml 

AO WMC5(J.K*N1) a DCMPLXCBC J.K) .0 .DO ) 

C CALCULATE RANK OF SLAMOFA 

II = Ml* N 1 

CALL CSVD ( WMCS .10.10.N1.II.0.N1.II.S.U.V) 

IFCS(N1 J.LE.O.DO )GOTO 50 
I CTR (II) a I 
GOTO 1000 

50 ICTR( II ) = 0 

1000 RETURN 

END 

* ’«*« a mm 

C 

C SUBROUTINE CWRITE: WRITES OUT A COMPLEX MATRIX FOR 

C IBM 327B TERMINAL 

C A a INPUT COMPLEX MATRIX 

C IRAaROWS OP A : lRC=COLUMNS OF A 

C 

«*«***„ **..„, 
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C GU3R0UTINE CWRITECA. IRA. ICA, TITLE) 

C IMPLICIT REAL-8CA-H.P-Z) 

C COMPLEX'* 1 6 A (I 0.10) 

C INTEGER IRA.ICA ’ 

C CHARACTER-80 title 

C WRITEC6.S) 

C RCRMATC/. * **"******-**•***«**»»*»-**»««-«>.***»***»****..*«#*«•,/) 

C aRITEC* .6JTITLE 

C =CRMAT(/. IA4 ) 

C DC 10 J = l.IRA 

C WRIT£(6.C0)CACJ.K).K a l.ICA) 

CO FORMAT (8 (£8. 1 . IX n 

CO CONTINUE 

C -iRlTE(6.5) 

C RETURN 

C END 

C* --------- - 

c 

C SUBROUTINE CONO: FINOS 2 - NORM CONOI7ION NUMBER OF 

C A SQUARE COMPLEX MATRIX 

C 

C- ------ - 

SUBROUTINE CCNOCZ.Nl .XCONO) 

IMPLICIT REAL-8 (A-H.P-Z) 

COMPLEX * 1 6 Z C 1 0 . i 0 ) . UZ C 1 0 . 1 0 ) . VZ C 1 0 . 1 0 ) • UN I TYC (10.10). ZSAVE (10-10) 
1.UIZC10. 10).VIZC10.10).Z1 
REAL-8 SICIO).SCCIO).WA(IO) 

INTEGER Ml 

C INITIALIZE MATRICES 

00 5 I a 1.10 
SI Cl )= 0.00 
SZC!) = 0.00 
WAC I ) = 0.00 
00 5 J a 1.10 
Z1 = CO. 00. 0.00) 

UZCI . J ) = Z1 
VZC I . J ) a Z1 
UN I TYC ( I . J ) = Zl 
ZSAVE Cl.J) 5 ZI 
UIZCI.J) a Zl 
VIZCI . J) = Zl 
5 CONTINUE 

00 10 I a 1.N1 

UNITYC(I.I) = OCMPLXC 1.00.0. DO) 

DO 10 J a 1 ,N1 
ZSAVE C I . J ) = ZCI.J) 

10 CONTINUE 

CALL CSVOC ZSAVE. 10. 10.N1.N1 .O.NI .N1 .51 .UZ.VZ) 

XCONO a SlCU/SlCNl) 

RETURN 

ENO 

C#-*-- - 
C 

C SUBROUTINE NORM: NORMALIZES THE COLUMNS OF A COMPLEX MATRIX 

C SUCH THAT I IX III = 1.0 

C 

C- ------------- 

SUBROUTINE NORMCA.I.N) 

IMPLICIT REAL-8CA-H.P-Z) 

COMPLEX- 16 AC 10. 10) 

INTEGER IN 
00 10 J a l , IN 
X a 0.00 
00 CO I = 1.IN 

CO X a X * OREALCACI ,J ) )--2 ♦ OIMAG C A C I . J ) ) - -2 
00 10 I a l , 1 N 

10 ACI.J) a AC I . J )/030RT (X ) 

RETURN 

ENO 
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C 1 

c 

c 

c 

C' 



10 



30 

40 

50 



60 



61 



«00 

1000 

1100 



c« 
c 
c 
c 
c 
c ■ 



1 



3 

4 



SU8R0UTINE RESULT: WRITES El GENS RESULTS ON FILE 08 



SUBROUTINE RESULT ( A . B . C • F .r DEL • BDEL» Z4 . Z5 * L 1 .M1.N1 1 
IMPLICIT REAL-8 (A-h. P-Z) 

REAL -8 A ( 1 0 . 1 0 ) . 3 (1 0 . 1 0 ) . C d 0 . 1 0 ) . F d 0 . 1 0 ) . FDEL d 0 . 1 0 ) . BDEL (10.10) 
COMPLEX'* 1 6 Z4(10.10).Z5(10).FC( 10. 10) 

INTEGER LI .Ml .Nl 
WRITE(8.«00)Li .Ml ,N1 
00 10 1 s 1.N1 

WRITE (8 . 100 0 J C AC 1 . J ) . J-l .Nl ) 

00 CO 1 * 1 »N1 

WRITE(B . 1000 )(3( I .J ) . J=1 .Ml ) 

DO 30 I = l .LI 

WRITS (3. 1000 >(C(I . J) . J-l .Nl ) 

DO 40 I * 1 .Ml . 

WR I TE ( 8 . 1 0 0 0 ) ( F ( 1 . J ) . J = 1 . L 1 ) 

DO 50 I = 1 .Nl 

WRITE (B. 1 1 00 ) C Z4 C I .J ) .J«l .Nl ) 

DO 60 I s 1 .Nl 

WRITEIB. 1000)25(1) 

DO 61 I s 1 . M 1 

WRIT£(8.1000)(FDSL(I.J).Jsl.Nl ) 

DO 60 i = 1 .Nl 

WRITE (8. 100 0 ) (8D£L( I . J ) > J* 1 .Ml ) 

FORMAT (310) 

FORMATdX.oElO.5) 

FORMAT ( 1X,o£10.S./1X.6E10.5 ) 

RETURN 

ENO 



SUBROUTINE RANKD: ANALYZES REQUIRED STRUCTURE OF RANK DEFICIENT 
MATRICES 



SUBROUTINE RANKO(BS.UT.S.N,M.UOTC.U1TC.RZINVC. I RANK. BG I ) 

IMPLICIT REAL - 3 ( A-H , P-Z ) 

REAL -8 8S ( 1 0 . 1 0 ) . S ( 1 0 ) . SM ( 1 0 . 1 0 ) . RZ ( 1 0 . 1 0 ) . RZ I NV ( 1 0 . 1 0 ) . 

1 U(10.10).UT(10.10).VT(l0,10).SI(10).WK(50).SMI(10.10).WARcA(200) 
0 . 3G I ( 1 0 . 1 0 ) . CGI ( 1 0 . 1 0 ) . BSM ( 1 0 . 1 0 ) 

COMPLEX - 1 6 RZ I NVC ( 1 0 . 1 0 ) . UO TC ( 1 0 . 1 0 ) . U 1 TC ( 1 0 . 1 0 ) 

INTEGER N.M.IRANK 

{ RANK = M 

DO 1 I = 1 . 1 0 

DO 1 J = 1.10 

BGKI . J) = 0 .DO 

RZ(I .J) * 0.00 

RZ INV ( I . J ) = 0 . DO 

UOTC(I.J) = (Q.DO.O.DO) 

U1TCCI.J) = (0.D0.0.D0) 

RZINVC(I.J) = ( 0 . DO . 0 . DO 1 

ud .j) s o.oo 

VTC.J) = 0 . DO 

DO 0 I 8 1.50 
WK ( I ) 3 o .DO 

DO 3 I = 1 .M 
I F ( S ( I ) .GT.O .DO )GOTO 3 
I RANK = 1-1 
GOTO 4 
CONTINUE 
00 30 I = 1 ,N 

DO 30 J 8 1 ,N 

SM(I.J) = 0 . DO 
Ud .J) = UT( J , I ) 

DO 40 I = 1 .N 
00 40 J 8 I.IRANK 
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40 UQTCCJ.I) = DCMPLXCUC1 .J) .0.00) 

00 50 I s 1 , n 

00 50 J s IRANK * I . N 

50 UlTCC J-1RANK. I ) = DC.MPLXCUCI.JJ.O.DO) 

C DO 60 I = l.M 

00 60 I * I. IRANK 
DO 60 J = l.M 
60 VT( : . J) = BSC J . I ) 

C wR ITE ( 6 . 1000) 

C000 rOR M A~( /5X . ‘ U MATRIX'./) 

C DO 1000 I = l.N 

COCO UPIT£($,1030 MU(1.J).J«1.N) 

COCO FORMAT (IX.6CE12.5.1X) ) 

C WRI7EC6. IC40 ) 

C060 FCRMAT(/5X. *S MATRIX' ./ ) 

C 00 1050 I = l.N 
CC50 «*R I7EC 6*1030) S(I) 

C ARI-EC6. 1060 ) 

CO 6 0 FCRMAT(/5X. 'V MATRIX' . /) 

C DO 1070 I = l.M 
CO 70 WRITE (6. 1030 JCBSC I .J J.Jal.MJ 
00 70 I a 1 . IRank 
70 SM(I.I) s 5(1) 

CALL VMULFrfSM. 7T, IRANK, M.M. 10*10. RZ. IO.IER) 

C WR I TEC 5 . CO 00 ) 

C000 FCRMATC/5X. 'RE MATRIX' ./) 

C DO 2010 I s I . IRANK 

CO 10 WRITE (6. 1030 )(R2(I . J ) • J = 1 .M) 

C TOL = 0.C0 

C CAi LGINFCR2. 10. IRANK.M. TOL.RZINV. 10 .SI .WK, IER 1 

C WRITECo.3000) 

C000 FDRMATC /5x, • *- SIGMA MATRIX PRIOR TO INVERSION **«'*',/) 

C WRITE (6. 30 30 )( (SMC I .J) .Jsl . IRANK) . 1 = 1 .IRANK) 

C CALL LINV2FCSM, IRANK. 10. SMI. O.WAREA.IER) 

DO 3001 I = 1 . IRANK 
300 1 SMICI.I ) = I .00/SMC I . I ) 

C WR ITEC 6 ■ 4000 ) 

COOO FORMAT C /5X SIGMA MATRIX INVERTED «*«-•./) 

C WR I TEC 6. 3030 )( COM I ( I . J) . J = I . IRANK) . 1 = 1 . IRANK) 

COCO FORMAT CIX.3CE1C.5.1X)) 

CALL VMULFF ( ES » SMI . M . IRANK. IRANK. 1 0 . 1 0 . R2I NV . 1 0 . I ER ) 

00 BO I = I .M 
00 30 J * 1 . IRANK 

BO RZINVCCI.J) = 0CMPLXCR2INVC I . J ) .0.00 ) 

CALL VMULFF CBS. SMI .M. IRANK. I RANK. 10. 1 0 • BSM . 1 0 . I ER ) 

CALL VMULFF ( BSM . UT . M , I RANK . N , 1 0 . 1 0 . BG I . I 0 . I ER ) 

RETURN 

END 

C" - * 

C 

C SUBROUTINE FEcDEF: CALCULATES FEEDBACK GAINS FOR RANK DEFICIENT 

C B AND/OR C MATRICES VIA FLETCHER, ET.AL. 

C 1 °B5 

- - 

SUBROUTINE FEEDEFCA.B.C.V.VDI.EIG0M.3GI .U1TC.C3I .N.M.L. IY. IFEED.FC 

1 ) 

IMPLICIT R£al*B ( A-H , P-Z ) 

REAL -B A(10.10),o(l0.l0).CCl0.10).BGICl0.l0).CW(10.I0). 

1 CGI CIO. 10 ) .CSOSC 10 ) .TOTESC 10 ) .SBC 10 ) .SCC 10 ) .WKC20 0 ) . 

2 CT( 10. 10 ) .CTWC 10 . 10 J.CTUTC 10 . 10 ) .SCTC 10 ) .CTGI CIO. 10 ) . WK1 ( 200 ) . 

3 WAC 10 ) .C03J.C0oJR.CC3JL,WElGHL.WElGHR.W0RK(20 ) 

COMPLEX- 16 AC CIO. 10). BCCIO.IOJ.CC (10. 10). VC10. 10). FC (10. 10). 

1 DGC 10. 10 ) .SOC 10 . 10 ) ,DQN( 10 . 10 ) .TOTC 10. 10 ) .TOTAC 10. 10 ) . DQTC I 0 . I 0 ) . 

2 U0(10.I0).ACS( 10.I0).S0OCl0.lO).3V0Cl0.I0).BICCI0.10).CICCI0.10). 

3 CSO ( 10 . 10 ) ,T0TBC 10. 10 ) .CSUC 10 . 10 J.CSVC 10 . 10 ) .TOTBUC 10 . 10). 

4 TOTBVC 1C. 10 ) .CSOSCC 10 . 10 ) .T0T3SCC 10. 1 0 ) . CSUT C 1 0 . 1 0 ) . TOTBUTC 10. 10 ) 
5.CSVCC10.I0).CS0IC10.10).T0T3SSC10.I0).T0T3IC10.10).WM1(10,10). 

6 WM2C 10 . 10 ) .WM3C 10 . 10 ) .WM4( 10. 10 ) . WM5 C 10 .10). WM 6 C 1 0 . 1 0 ) . WM 7 (10.10) 

7 . -MB ( I 0 . 1 0 ) . WM9 ( 1 0 . 1 0 ) • wm 1 0 C 1 0 . 1 0 ) • WMl 1 C l 0 . 1 0 ) . wm 12 C 1 0 . 1 0 ) , 
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9 WM15C10. lOO.^MUtlO. 10) .Z.EIGOMdO. 10J.BCSC 10. 10) -CCCdO.lO). 

9 TO(lO.lO).VOIdO.lO). SCHP (10,10). CCMP (10.10), CC5S (10.10) 

COMPLEX* lb CS0MP(10. 10) ,^M1S(10. 10) .TTSSdO. 10).T07MP(10. 10). 

1 WM 16(10, 10). 17(10. 10). >4M1B (10.10). NMCO ( 10.10). *4MC 1(10.10). 

2 WMCCdO. 10) .U1TC(10. 10) .CTITCdO. 10) .CTOTCdO. 10) ,ZINCTC( 10.10). 

3 AML (10. 10) .ATML(10. 10).RN(10. 10.10).LN(1G.10.10).T(10,10). 

A VW(10. 10) .WMC3dO. 10 ) ,^M2A(10. lO).WVR(lO) ,WVL(10) .ESdO. 10). 

5 NMR (10.10). NML (1 0 . 1 0 ) . RCB J (1 0 ) , LOB J (1 0 ) , UN 1 7 VC ( 1 0 . 1 0 ) . 

6 UOT ( 1 0 • 1 0 ) « VO ( 1 0 > 10) .FCTdO. 10).PCG(10. 1 0 ) . BCFC ( 1 0 . 1 0 ) . 

7 BCFCC( 10. 10 ) .CLMdO, 10) .EVALUdO) .EVECK 10. lO).Vl(lO.lO). 

3 VE ( 1 0 . 1 0 ) . VEV ( 1 0 . 1 0 ) . VMA ( 1 0 . 1 0 ) . B V ( 1 0 . 1 0 ) . FCG (lO.lO).UlC(lO.lO) 
REAL -A OBJ »X(50).VL3(50 ) . VUB (50 ) . RA (CO . «0 ) .G( 1 ) . OF (CO ) . WK2 ( AOOO ) 
INTEGER N.M.L. IFEEO. IQ. IN. IRANCT . 1 V , IWK ( 1 00 0 ) . INFO. IOGd ) . ICC 10) 
^RIT£(6. 10) 

10 FQRMAK/5X. * ***** PRESENTLY IN FEED EF . SINCE RANK(C) < N. ENTER**** 

l'./5X. ’*-** DESIRED DIMENGICN OF O.H. EIGENVECTOR SET FOR**** 

’***- SPLIT EIGENSTRUCTURE COMPUTATION. »*** 

3 * ,/) 

READ(*.15)IQ 
15 FORMAT (II) 

CALL FRTCMS ( ’ CLRSCRN *) 

IN = N - IQ 

C INIT MATRICES 

DO 11 I = 1.10 
CSOS( I ) = 0.00 
TQT3S ( 1 ) = 0 . DO 
SCT ( I ) * 0.00 

wAd) s o.oo 

-JVRd) = (0. DO. 0.00) 

WVL(I) = (0.00,0.00) 

ROB J ( I ) a 0.00 
LQBJd ) * 0.00 
00 11 J = 1.10 
D » (0.00,0.00) 
ac(I.j) = z 
3C( I , J ) = z 
CCd.J) a Z 
CW(I.J) = 0.00 
CT(I.J) = 0.00 
C^Wd.J) = 0.00 
CTUT(I.J) a 0.00 
T(I.J) a 2 
V^( 1 . J ) a z 

WMC3(I.J) a Z 
WM2 A ( I . J ) a z 
NMR ( I . J ) a Z 
NML(l.J) a Z 
CQ (I , J ) = Z 
50(1. J) = Z 
OCN(I.J) a Z 
TOT(I.J) a Z 
TOTA(I.J) aZ 
OQT(I.J) a Z 
UOd.J) a Z 
ACS( I , J ) a Z 

soon .j ) = z 

BVOd.J) a z 
BIC(I.J) a Z 
UOTd . J ) a Z 
VO ( I . J ) a Z 
CIC ( I « J ) = Z 
CSOd.J) S Z 
TOTB(I.J) =Z 

csud.jj = z 

CSV ( I . J ) a Z 
TOTBU(I.J) =z 
TOTBV(I.J) aZ 
CSOSCd.J) aZ 
T0T3SCC 1 ,J) = Z 
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CSUT(I.J) * Z 
TQT3UKI.J) = Z 
CSVCCl.J) - z 
UN I TYC ( 1 * J ) * CO. DO. O.DO) 

11 CONTINUE 

C BUILD CONSTANTS 

INFO = 0 
WEIGHR * 1 . DO 
WE1GHL 2 1.00 
DO 1C 1 = I.N 
UNITYCCI.n - Cl. DO. O.DO) 

DO i: J : 1,N 
TCl.J) = VD1CJ.I ) 

1C ACCI.J) = DCMPLXC A C I • J ) . 0 . DO ) 

00 13 I = 1 » N 
DO IJ J * l.M 

13 BCCI.J) * DCMPLXC3C 1.JJ.0.D0) 

DO U I * I.L 
00 14 J = l.N 
CW(l.J) = CCl.J) 

U CCCi.J) = DCNPLX(Cf I . JKO.DQ ) 

C CHECK IF LEFT EIGENVECTORS ARE MEMBERS OF N ( C 1 " * T* { A- LAM * I } ) 

C FIND SVD OF C*"*T 

DO COO I - I.L 
OO COO J = I.N 
CTUT(J.J) ■ I.DO 
CT^CJ. I ) = CCl.J) 

COO C T CJ.I) * CCl.J) 

call LSVDFCCTL. IO.N.L.CTUT. 10.N.5CT.*K1 . IcR 1 

CALL RANKDCCTW.CTUT.SCT.N.L.CTOTCrCTITC.ZINCTC. IRANCT.CTGI ) 

c 

C BUILD NULL SPACE OPERATORS FOR 3 AND C*«T 

C 

DO CIO I = l.N 
DO COS J = 1 .N 
00 C05 K 2 l.N 

AMLCJ.K) s AC(J.K) - E1GDMC 1 , I))*UNITVC( J.KJ 
C05 ATMLCJ.X) = ACCK.J) - E I GDM C I . I ) "UNI TYC ( J .K J 
CALL CMATML C Ul TC • AML . IY.N.N.WMC3 ) 

CALL CMATMLICTITC. ATML.N-IRANCT.N.N.WMCA ) 

DO CO 6 JJ = l . IV 
DO CO 6 <K * I.N 
UlCCKK.JJ) s UITCCJJ.KK) 

CC6 RNCI.JJ.KK) = HMC3CJJ.KK) 

DO CO 7 JJ = I.N-IRANCT 
DO CO 7 KK s l.N 

CO 7 L-NC1.JJ.KK) = WMCA(JJ.KK) 

CIO CONTINUE 

c 

C FIND OBJECTIVE FUNCTION 

C 

COB C08J = O.DO 

COBJR a O.DO 
C03JL = O.DO 
ICONJG =0 ' 

DO CCO I 2 l.N 
IFC ICONJG. EO. 1 )GOTO C19 
DO CCS K = l.N 
Y = OIMAG CE IGDM C I . I ) ) 

IFCY.EQ.O.DO )GOTO CO 9 
IF(K.NE.N)GOTO C0<» 

ICONJG 2 1 

209 WVRCK) 2 VCK. I ) 

CCS «4VL C .< ) 2 TCK. I ) 

DO CC6 JJ = 1 . IY 
00 CCo KK 2 l.N 
226 NMR(JJ.KK) 2 RN(I.JJ.*KK) 

DO CC7 JJ 2 1 .N-1RANCT 
DO CC7 KK = I.N 



175 



NML(JJ.KK) a LNII.JJ.KK) 

CALL CMATML (NMR . WVR . IV, N, 1 ,ROBJ ) 

CALL CMATMLINML .WVL.N-IRANCT.N. 1 .LOBJ ) 
00 300 JJ = 1 . IY 

CDAE5CROBJCJJ) ) 



CDABS!LOSJ! JJ ) ) 



CONTINUE 

COS J a WEIGHR-CCBJR * UEIGHL-COBJL 
OBJ = 5NGLCC03J) 

IF! INFO.EQ. I )GOTO 2M 
WRITE! 6 .230 JCOBJR .COBJL 

FORMAT C /SX. * 5JB5RACE COMPAT 1 3 IL ILTY TEST PERFORMED. 



300 


COBJR 


a COBJR * 






00 301 JJ 


301 


CCBJL 


= CCBJL ♦ 






GOTO 220 


2 1 q 


ICONJG 


; = 0 



1 



/5X . * **« « * RT SUBSPACE RESIDUAL = 

/SX.'**"* lT SUBSPACE RE5I0UAL a '.E12.5. * «»*«'. 

/5X. ''*"'*'* ENTER "l" FOR ADS MINIMIZATION 
/5X. ENTER "C" IF SUBSPACE RESIDUAL OK. 
/SX.'**** ENTER " 3 '* IF YOU DESIRE TO USE PREVIOUSLY 
/5X. OPTIMIZED RT AND LEFT EIGENVECTOR SETS. 



READ(«r23l JIMIN 
231 FORMAT (II) 

CALL FRTCMS ! ' CLRSCRN ' ) 

IF! I MIN. EG. 3 )GC70 510 
IF( IMIN.E0.2 JGOTO 16 
WRI7ECS.260) 

260 FORMAT! /SX , * ENTER WEIGHT FACTOR FOR RIGHT E I GENSTRUCTURE •’*'./) 

REAO(-.237)WEIGHR 
WRITE! 6. 261) 

261 FORMAT ! /5X * * * * EN T ER WEIGHT FACTOR FOR LEFT EIGENSTRUCTURE "*'./) 

READ! * • 237 JWEIGHL 
CALL FRTCMS! 'CLRSCRN ’) 



C 

C 

c 

c 

c 

c 

c 

c 



OPTIMIZER CODE FOR LEFT AND RIGHT 5U8SPACE PQMTS 
ONLY BUILO ONE CE5IGN VARIABLE VECTOR AND UPPER/ 
LOWER BOUND VECTOR PER COMPLEX EIGENVALUE. AFTER 
OPTIMIZATION. INVOKE CONJUGATE VECTOR ROMT. 



232 ISTRAT = 0 

ICPT a S 
IONED = 1 
NOV a 2*N-N 
NCON = a 
IGRAD a 0 
IPRINT a 1000 
NGT = 10 
NRA = 10 
NCOLA a 10 
C SET SOUNDS 

WR I TE ! 6 . 235 ) 

235 FORMAT ! /5X . * AN ACCEPTABLE SET OF R.H. EIGENVECTORS ***" ‘./5X, 

1 • HAVE SEEN COMPUTED IN KVECT. ENTER ABS *»«■•. /SX# 

2 VALUE OF ELEMENT TOL. TO SATISFY L.H. * ,/5X. 

3 '*>«*« 5UESPACE REQUIREMENT. ""««'./) 

WR I TE ! 6 . 23 6 ) 

236 FORMAT(/5X. ’ »«*. REAL TOLERANCE = >« ***•’./ ) 

REAO f * . 237 ) ER 
WRITEI6.23B ) 

23B FORMAT (/SX.’**** IMAG TOLERANCE a "•**',/) 

REAO! »* .237)81 

237 FORMAT ! F 1 2 • 5 ) 

CALL FRTCMS! 'CLRSCRN • ) 

C BUILO DESIGN VARIAELE VECTOR ANO UPPER/LOWER 80UN0 VECTOR 

2Z* JJ = 1 

ICONJG a 0 
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00 240 KK = l.N 
IFCICONJG.EQ. 1JG0T0 242 
CO 240 LL = l.N 
RX = DREALCVCLL.KK 1 ) 

CX = DIMA3 ( V ( LL ♦ KK 1 ) 

V a DIMAGCEIGDMCXK.KO 1 
IFCY.SQ.O.DOJGOTO 280 
281 IF(LL.NE.N)GOTO 28 0 
2 62 NOV * NDV - 2*N 
1C0NJG = 1 
280 X(JJ) = GnGLCRX) 

X(JJM) a SNGL(CX) 

VLa(JJ) = X(JJ) * SR 
VL5CJJ) = XCJJ) - 3R 
IF (CX.NE.O .00 )GCTO 286 
VU3 ( JJ * 1 ) = 0.0 
VL5CJJM) = 0-0 
GOTO 235 

285 VU3CJJM) = X(JJM) * 31 

VLB ( J J * 1 ) = XCJJM 1 - 31 
235 ICC JJ 1 - 0 

IC(JJM) a o 
DrCJJ) = 0. 

DFCJJM) = 0. 

GCTC 265 

242 ICDNJG a o 

GOTO 240 

<.65 JJ a jj * 2 

240 CONTINUE 

241 CALL AOS C Info. ISTRaT. IOPT . ICNEO. I»RINT. IGRAD.NDV.nCON.X.VLS.VUB. 

1 CEJ.G. IOG.NGT. IC.0F.RA,NRA.NCCLA.>JK2.4 00 0. INK. 1000 1 
C EVALU6 t E OBJECTIVE FUNCTION 

JJ a 1 
ICCNJG a 0 
00 245 <K = l.N 
IF I ICONJG.EQ. 1 1GOTO 243 
00 245 LL a l.N 

IFCDIMAGCEIGDMKK.KKJ KEQ.O.DOIGOTO 24 6 

270 IFCLL.NE.N1GOTO 246 

271 ICCNJG a 1 

246 VCLL.XK) a C. M PLX(X(JJ). XCJJM J ) 

VWCLL.KK) = VCLL.KKJ 
GOTO 243 

243 DO 244 LLL = 1 .N 

V(LLL.KK) = OCCNJGC VCLLL • KK- 1 1 J 

244 VW (LLL » KK J = VCLLL. K.<1 

ICCNJG a 0 
GOTO 245 

243 JJ = JJ * 2 

245 CONTINUE 

CALL LEQT1CCVW.N. 10.UNITYC.N. 10.0.WA. IER) 

DO 247 KK a l.N 
00 247 LL a 1 ,N 

247 TCLL.KK) a 'JNITYCCKK .LL 1 

DO 2S0 KK = l.N 
00 250 LL * l.N 

250 UNITYCCKK.LL) a (0.00.0.00) 

DC 252 KK = l.N 

252 UNITYCCKK.KK) = (1.00.0.00) 

IF( INFO.EQ.O 1GOTO 16 
GOTO 2C8 

C 3UILC 30 AND TOT. DO AND DON 

16 WRI7E(6.251)C03JR. C03JL 

251 FCRMAT(/SX. * ** «n RT 3U33RACE RESIDUAL = MEID-S.’ ""^'./SX. 

1 'a-** LT 3U8GRACE RESIDUAL = ’.E12.5.* 

2 '»'*«* ENTER "1” TO RETURN TO AD3 . ELSE «»»*■•. /5X . 

3 ENTER '*2” . 

READ ( a . C 3 1 ) IRTN 

CALL FP TCNS ( 'CLRSCRN *} 
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INFO = 0 

IF ! I RTN . EO . 1 JGOTQ COB 
CALL CONDCV.N.VCOND J 
CALL COND(T.N.TCOND) 

C 0E3U3 WRITE 

WR 1 TE ( o . C 9 0 ) 

290 FORMATC/SX. ' '“**« OPTIMIZED RT. EIGENVECTOR MATRIX *«»««,/) 

WR ITECb,C91H IV! I . J J.J = 1 .NJ . 1*1 .NJ 

291 FORMAT !CX.B(E9.1*IXJ) 

WR ITE16 • SCO JVCQND. C09JR 

5 CO FORMAT! /SX. * RT. £V . C NORM COND. NO. = *.£12. 5.* /5X. 

1 RT. SUBSPACE RESIDUAL * ‘.EIC.S.* 

WRITE(b.C9C) 

C Q 2 FORMAT(/SX. ’ OPTIMIZED LT. EIGENVECTOR MATRIX ./J 

WRITE(b.C9I)((T(I.J).JsI.N).Isl.N) 

WR I TEC 6 .521 JTCOND.CC2JL 

5C1 FCRMATC/SX. ‘ LT. EV. C NORM COND. NO. * ‘.EIC.S. 

i LT. SUSSPACE RESIOUAL * ‘ ■ E IC . 5 . ’ **«*"'./) 

C SAVE RT/LT EIGENVECTORS. COND NOS. AND RESIDUALS ON FILEOEF 10 

WRITEI10.SQ0 HCVd.J J.Jal .N).I*1 .NJ 
WRITECI0.50I JVCONO. C08JR 
WRITE (10. S00J((T(I.J).J*1.NJ. 1=1. N) 

WRITE! 10. SOI JTCONO.COBJL 
501 FCRMAT(1X.EIC.5.IX.E1C.S) 

GOTO 511 

500 FORMAT(IX.A(EIC,5. 1XJJ 

510 READ! 10.500 J(!V(t.J).J=l.NJ.I=l.NJ 

READ! 10 .501 JVCONO. C09JR 

R£AO( 10.500 )( ITd.Jl.Jel.N). I*1.N) 

REAOC 10.501 JTCONO.COBJL 
WRITE (6. SCO JVCCNO.COBJR 
WR I TE ! b . 52 1 JTCCND.COBJL 

511 DO CO I * l.N 

DO CO J = I . 10 

DO ( J . J J a EIGOMCJ.J) 

co sod .j) = vd.jj 

DO CS I = l.N 
DO CS J = N- 10* l.N 
DON (J-N*IOiJ-N*IQJ a EIGDM ( J . J J 
C5 TOT ( J-N* IQ . I ) = T ( I * J J 
C DEBUG WRITES AND CONDITION CHECKS 

CALL CMATML(TOT.SO. IO.N. IO.^MCC J 
C WR I TE ( 6 . A I J 

Cl FORMAT ( /SX. ' TOT - SO /J 

C WRITE! b .AC J ( !1WMCC ! I .JJ.J*1.IQ).I*1.I0) 

CC FORMAT! IX. A! 1X.EIC.5. IXJ J 

C WR I TE ! 6 . Cb J 

Cb FORMAT !/ 5X. * •“♦*•*• SO FOLLOWED BY TO -"«**./) 

C WR ITE!b .27 J! !DREAL(SO( I.JJ).J*1.I0J.I*1,N) 

C7 FORMAT !CX.C!IX.EIC.5.CXJJ 

C WRITE!6.C7 J! !OREALCTOT( I. J ) ). 1*1 . IQJ.jal.NJ 

C WR I TE ! b . C8 J 

C8 FORMAT !/5X» * 00 FOLLOWED BY DON /J 

C WR 1TE! b .27 J ! ! DREAL ! DC ( I . J J ).J*1.!0).1*I.I0) 

C WRITEfb . 27 J! ! DREAL ! OCN ( I . J ) ) . J* 1 . IN ) . I * 1 . IN J 

C 3UIL0 UO.BVO 

CALL CMATML!TOT. AC. 10.N.N.TOTA) 

CALL CMATML(D0N,T0T. 10. IQ.N.OOTJ 
DO 30 I = l . 10 
DO 30 J = l.N 

30 UO(I.J) * TOTA ! I . J J - DQ T ! I . J ) 

CALL CMATMLCAC.SO.N.N. IQ.ACS) 

CALL CMATML ISO. DO. N. 10. IQ.SODJ 
DO 35 I * l.N 
DO 35 J = 1.10 

35 BVOII.JJ = ACSII.J) - SODII.J) 

C OESUG WRITES 

C WRITEIb.36) 

Cb FORMAT !/5 X. ‘ -"m BVO 
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C WRITE (*.37 ) C (DREALC3V0( I . J ) ).Jsl.IQ],I=l.N) 

C 7 FCP^A7(1X.C(1X.E12.5. IX) ) 

C wR! 'EC 6. 39) 

08 FORMA’ t /5X. * -••* JCTC ««***./) 

C uRl7E(s.;«)C(DREAL(UOCi.J) ).J = 1 .NJ.IM .IN) 

C? F2R?-AT(lX.6(lX.ciC.5.lX) ) 

C FIND SlNV.ClNV 

C CA__ -3 INF ( 3« . 1C • n . y , 0 . DC • 3G I . 1 C . S3 . -< . IE 3 ) 

C CAL- LG I NF ( C-i . 13 . L . N . O . D 0 • C3 1 • 1 0 • SC » . 1 ER ) 

DO SO I * l.t* 

00 SO J 5 i.N 

ao sicn.j) = dc-plxcsg: c: .j) .o.ooj 

DO 53 I = l.N 
DO 50 J s !.•- 

50 OIC(I.J) = DCMPLX C CG 1(1. J). 0.30) 

c calculate uo--t and vo 

call cmat*lcuo.c:c. IC-N.l.LOT) 

Cal- CNATMLf 81 C • 3 VO . N . N, IQ . VO ) 

C DEBUG WRITES 

CALL C. M A7ML (5C.3IC.N.M.N. SC3 ) 

CALL OMATvl (CC.CIC.l.n.l. CCC ) 

CALL CMATHLCBCS.SC.n.n.M.SC^P ) 

CALL CNATMLiCCC. CC.L. L.N. COMP ) 

CALL C“a7*L(SIC.3C. m .n.n,-mdo ) 

CALL C>-A7ML(CC.C:C.L.N.L.WMD1 ) 

C WRITER. 51) 

Cl FC 3 VA7(/5X . • NOORE 3 EN?OOE 3*° !NV C 3 ) - 8 RESULTS «<**•*'./) 

c wr;-e( 6 . s: j ( cdrealcbc*-=( : . j ) ) . j= i .h ) , i = i ,n) 

CD =CR“A-(1X.CUX.E1D.5 . IX) ) 

C ~R I T E I a . 5 5 ) 

C3 FCRNA7(/5X. • MOCRE FENRCSE C-RINV(C)-C RESULTS *•--*’••./) 

C -R 1 7E C 6 . 5A ) ( ( DREAL C CC“R CI»J)).J*l.N).IsI - L) 

CA FORMAT C1X.A(1X,E1C.5« IX) ) 

C WR I ’E ( 6 . 55 ) 

C5 FCRMA7(/5X. ’ «--« 3* «• 3 -*»«*'./) 

C w,RlTE(6.SD)((DREALtWMC0CI.J)).J=I.M).t = I .M) 

C wR ITE (6.56) 

06 FCRmaT(/5X. C ■* C* •**■'./) 

c wr:-ec6.57)((dreal(wm::(:.j)).j s i.l). :*i.d 

07 FOR “AT (1X.3C1X.E1C. 5. 1X3 ) 

C SUILD 030* AND ( T0T3 ) * 

CALL CMA7VLCCC.S3.L.N. IQ.CSO ) 

Call CMATMLtCC.SO .L.N. 10.-MI7 ) 

CALL CMA7yLCT07.se. I C.N.M. 7073 5 
Ca»_- C“A~“L COT . SC . ID ■ n . y . -y 1 3 ) 

CALL C3VDCC30. 10 . 10.L. 1C . 0 . L . 1 0 . COOS . C3U . CSV ) 

CALL CSVDCC’3 • 1C. IC.IO.H.q. IO.m.-CTSS.TSTS’J.TOTBV) 

i ranks = io 

DO 60 ! 8 l.IQ 

IFJCSCSd l.GT.O .00 )GOTO 60 

IRANKO =1-1 

GOTO 61 

60 CCNT i NLE 

61 IRANKT = M 

00 65 1 = l.y 

IF(70TSS( I ) .GT.0.00 )GCTO t>5 
IRANKT =1-1 
GOTO 60 

65 CONTINUE 

60 DO 70 I » l.IRANKC 

XV = l.DC/CGOSCI) 

70 CS03CCI.I) = CCMPLXCXV.O.OO) 

DO 75 I 8 1. IRANKT 
XV = 1 . 00/70-33(1 ) 

75 707330(1.1) = CCMPLX ( XV . 0 . DO ) 

00 76 1 = l.L 
DO 76 J 8 i , l 

76 CSUT(J.I) = CSU(I.J) 

DO 77 I 8 l . 10 
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DQ 77 J = 1 . IQ 

77 TOTSUTCJrl) * TOTBU(I.J) 

CALL CMATML (CSV * CSOSC . IQ. IRANKC.IRANKC.CSVC) 

CALL CMATML ( CSVC ♦ CSUT . IQ. IRANKC . L . CSO I ) 

CALL CMATML ( TOTBV . TOTSSC . M . IRANKT . IRANKT . T0T8SS ) 
CALL CMATML ( T0T3SS . T OTSUT . M . IRANKT . IQ.TOTB I ) 

C MQQRE PENROSE TEST FOR C30I AND T0T3I 

CALL CMATML (WMl 7. CSO I.L. IQ. L.CCSS) 

CALL CMATML(CCGS.WM17.L.L. IQ.CSOMP ) 

DQ 91 I = I.L 
DQ ?1 J * I . IQ 

9 1 WM15(1.J) s CSOMP(I.J) - WM17CI.J) 

C DEBUG WRITES 

C WRITEC6.90) 

CO FORMAT (/5X, ' ««»« CSO 
C I ’ . / ) 

C WRITE (6. 52 )( (DREAL (WM1 7 ( I . J ) ) . J= 1 . IQ ) . I * 1 . L ) 

CALL CMATML(WM18. TOTBI . IN.M. IN. TTBS ) 

CALL CMATML ( TTB8 . WM 18 , IN . IN .M , TOTMP ) 

DQ 92 I » 1.1N 
DQ 92 J * 1 .M 

92 WMlbd.J) = TOTMP(I.J) - WM18CI.J) 

C DEBUG WRITES 

C WRITS(s,<»3) 

C3 C CPMAT(/SX. ' *"*«* T0T3 

C 1 .✓ ) 

C WRITEC6 .52 ) ( ( DREAL (WM 18 ( I . J ) ) . J = 1 .M). 1=1, IN) 

C FIND FIT 

CALL CMATML (WM20. TOT 3 1 . M . M . IQ , WMl ) 

CALL CMATML(WM1 .UOT.M, IQ.L. WM3 ) 

CALL CMATML (WM3. CCC. M, L. L. WM5 ) 

C FIND F2T 

CALL CMATML(WM20.V0 .M.M. IQ.WM6 ) 

CALL CMATMLCWMo .CSOI .M. IQ.L.WM7 ) 

CALL CMATML ( WM 7 . CCC . M . L . L . WM8 ) 

C FIND F3T 

CALL CMATML (WM20 .T0T8 I .M.M. 1Q.WM9 ) 

CALL CMATML ( WM9 . WM 1 8 . M , IQ.M.WMl 1 ) 

CALL CMATML (WMl 1 . VO . M . M . IQ . WM 1 2 ) 

CALL CMATML (WMl 2, CSO I .M , IQ.L . WMl 3 ) 

CALL CMATML ( WM 1 3 . CCC . M . L .L • WMl 4 ) 

C FIND FCT 

DQ 35 I * I • M 

DQ 85 J = I.L 

85 FCT(I.J) = — WMS(I.J) - WM8 ( I . J ) * WMUU.J) 

C FIND FIS 

CALL CMATML (WM20.V0.M.M. IQ.WM6 ) 

CALL CMATML ( WM6 • CSO I . M» IQ.L.WM7 ) 

CALL CMATML(WM7.CCC.M.L.L.WM8 ) 

C FIND FCS 

CALL CMATML ( WM20 .TOT8 I .M.M. IQ.WM9 ) 

CALL CMATML(WM9.U0T,M. IQ.L.WMIO ) 

CALL CMATML (WM 10. CCC. M.L.L. WMl 1 ) 

C FIND F3S 

CALL CMATML (WM2 0. TOTE I .M.M. IQ. WMl 2 ) 

CALL CMATML ( WMl 2 .UOT.M. IQ.L. WMl 3 ) 

CALL CMATML ( WM 1 3 . WM 1 7 . M . L . I Q . WM 1 4 ) 

CALL CMATML (WM 14 , CSO I . M . IQ , L . WMl 5 ) 

CALL CMATML(WMI5 .CCC. M.L.L. WM16 ) 

C FIND FCS 

DO 80 I s I. M 

DQ 80 J * I.L 

80 FCS(I.J) s - WM8 ( I . J ) - WMU(I.J) * WMU(I.J) 

C FIND FCG 

DQ 350 1=1 ,N 
DQ 350 J = I .N 
350 VI(I.J) = T(J.I) 

CALL CMATML(V.EIGDM.N.N.N.VE ) 

CALL CMATML (VE.VI » N , N , N . VEV ) 



ISO 



DO 355 I s l.N 
DO 355 J = l.N 

355 VMA(I.J) = VEV(I.J) - ACCI-J) 

CALL CMATMLCUITC.VMA. IY.N.N.E3) 

WR I TE ( 6 » 35 6 ) 

356 FORMAT (/SX. * *«*** E3 

WRIT£C6,315)( CSS(I. Jl.J»l.N),I«l. IV) 

CALL CMATML(SIC.VMA.M.N.N.aV) 

CALL cnatmubv.cic.m.n.l.fcgi 

C DEBUG WRITE BOTH FCS AND FCT 

*RIT£C6.310) 

310 FCRmaT(/5X. ■ -h** RIGHT FEEDBACK GAINS 

WRITE! 6 . 315 ) C (FCS ( I . J ) . J = 1 . L 1 . 1*1 .M) 

WR I TEC 6 -311) 

311 fqrmaTC/SX. ' LEFT FEEDBACK GAINS *«-*•./) 

WRITE ( 6 . 3 IS ) ( (FCT Cl .J).J=I.L).I=l.M) 

315 FORMAT (lx. 6 ( 1 X. E1C. 5. IX) ) 

WR i 7E( 6 . 31 6 ) 

316 FORMAT ( / 5X » ' "* »"* GAV FEEDBACK GAINS ««««*,/) 

WR I TE ( 6 • 3 1 5 ) ( ( FCG ( I . J ) • J = 1 .L).I*1.H) 

WRITE ( 6 » 3 ID ) 

3 1C FCRMATC/SX, SELECT RIGHT OR LEFT GAINS /5X. 

1 'mm ENTER "l" FOR RIGHT GAINS ***«*’, /5X. 



2 ENTER "2" FOR LEFT GAINS * « <« - • . /SX . 

3 . •*«“«* ENTER ”3” FOR GAV GAINS /I 



»£A0C*. 231)10 
IFCIG.SQ. 1 JGOTO 3C0 
I F ( I G . EO . 3 ) GO T 0 3CS 
DO 313 I = I.M 
DO 313 J = l.L 
313 FCCI.J) = FCT(I.J) 

GOTO 1000 

320 DO 3 1 A 1 r l.M 

DO 3 1 A J * I . L 
3IA FC(I.J) = FCS ( I * J ) 

GOTO 1000 

325 0O 326 I = I.M 

DO 326 J * l.L 

326 FCCI.J) = FCGCI.J) 

C FIND EIGENSTRUCTURE 

1000 CALL CMATMLC 3C . FC . N . M. L * 3CFC ) 

CALL CMATML(SCFC.CC.N.L.N.BCFCC) 

DO SCO I s 1 ,N 
DO 600 J = l.N 

600 CLMCI.J) = ACCI.J) * BCFCC(I.J) 

CALL EIGCCCCLM.N. 10. 1 . EVALU. EVECT , 1 0 . WORK . IER ) 

WRITE (6. 610) 

610 FORMATC/SX. ’ «--*• EIGENVALUES RESULTING FROM FEEDEF CALC «•«««'./) 

WRITE (6. 620) (EVALU (I). Is l.N) 

620 FORMAT (1X.E12.5.1X.E1C.5) 

WR ITEC6 • 630 ) 

630 FCRMATC/ 5 X, ' «-*- EIGENVECTORS RESULTING FROM FEEDEF CALC 
WRITE(6.291)(( EVECT ( I . J ) . Js 1 ,N).1=1.N) 

return 

END 



C 

C SUBROUTINE ALGSLN : SOLVES FOR BASE EIGENVECTORS 

C ALGEGRAICALLY 

C 

C* 

SUBROUTINE ALGSLNCA.B.C.EIGD.E.UNITY.N1 .Ml ,L1 .V.WMAT) 

IMPLICIT REAL-8(A-H.p-2) 

REAL "8 AC10.10).3C10.3).CC10.10).UNITYC10.10). 

1 A WK 1 ( 2 5 0 ) . AWKC ( 25 0 ) . ALSL AM ( 1 0 . 1 0 ) . AL I NV ( 1 0 . 1 0 ) . 

2 wC(10. 10).W3(10. 10).WA(10. 10).W5(10.10).W6(i0. 10 ) . W7( 10 ) . W 8 ( 10 ) . 

3 WMAT(10.10).W9(I0).S(20).WK(30) 

COMPLEX <*16 EIGDIIOJ.ECIO. 10).VC10.10) 

INTEGER N1 .Ml ,L1 . II I 
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C CALCULATE 3LAMDHA 

DO 1000 1 = 1.N1 
C REIN1T 5LAMDHA 

DO 10 II = I . 1 0 
DO 10 JJ = I . 10 
AL3LAMC 1 1 . JJ) 2 O.DO 

10 continue 

C RECOMPUTE ALSLAM FOR EACH EIGENVALUE 



DO 30 J * : 


l .Nl 


DO 33 K : 


1 .NI 



ALSLAM C J . « ) = DREAL(EIGD( 1 ) )-UNITY( J ,K ) - ACJ.K1 
30 CONTINUE 

C WRITE FOR DEBUG 

C DO 35 J * 1 .N1 

C wai7=(6, 36 ) (ALSLAMCJ.K ) .K*l .NI ) 

C6 FORMAT (1X.6CE10.3. IX) ) 

C5 CONTINUE 

C COMPUTE INVERSE OF ALSLAM 

III » 1 

CALL L INV2F (ALSLAM »N1 . 1 0 * ALlNV. I .AWK1.1ER) 

C WRITE (6. 100) III 

C COMPUTE C * INV<ALSLAM> 

CALL VMULrFCC.ALlNV.Ll . N I , N I . 1 0 - 1 0 . W2 . 1 0 . 1 ER ) 

111 * III * 1 
C WRITE (6.100)111 

C COMPUTE C - INV<AL$LAM> - 3 

CALL VMULFF (WC .6. LI . N 1 . Ml . 1 0 , 1 0 . W3 . 1 0 - IER ) 

111* III ♦ 1 
C WRITECS. 100)111 

C COMPUTE INVcC* !NV<ALSLAM> * 8> 

C DETERMINE if pseudo inverse is required 

1FCL1 .EC. Ml )GOTO 70 
C CALL 0INV(W3.L1 .Ml ,WA) 

CALL LG I NF ( W 3 . I 0 , L 1 . M 1 , 0 . DO . WA . 1 0 , 5 , WK . I ER ) 

GOTO 80 

70 CALL L1NVCFCW3 .LI . 10. WA, 1 .AWKZ. IER) 

80 III * 111 * 1 

C WRITEC6, 100)111 

C COMPUTE 8 - INVCC- 1NV<ALSLAM> - 8> 

CALL VMULFF ( 8 » WA .N 1 .Ml ,M1 , 10 . 1 0 . WS . 10. IER ) 

III * 111 * 1 
C WRITE! 6. 100 ) 1 1 1 

C COMPUTE ALINV * <8- INVCC- INV<AL3LAM> - B>> 

CALL VMULFF ( ALINV. WS .Nl . N 1 ,M 1 , 1 0 . 1 0 ■ Wo , 1 0 . I ER ) 

III * 111 * 1 

C WRITEC6. 100)1 II 

COO FORMAT ( /SX . 'OP NO. '.ID,' DONE IN ALGSLN* ) 

C COMPUTE W6 - £ ANO THE W MATRIX 

DO A0 J = 1 . LI 
W7(J) = DREAL ( E( J . I ) ) 

A0 CONTINUE 

CALL VMULFF ( We .W7.N1 .MI, 1.10. 10. W8, 10. IER) 

CALL VMULFF (WA.W7. Ml ,L1. 1 .10. 10.W9.10. IER) 

DO 50 J * 1 .Nl 

V(J.I) = DCMPLX(W8CJ).0.00) 

50 CONTINUE 

DO 60 J * 1 .MI 

WMATCJ.I) s-w9 ( J ) 

60 CONTINUE 

1000 CONTINUE 

RETURN 

END 

* 

C 

C SUBROUTINE PINV: COMPUTES THE PSEUDO INVERSE OF AN 

C IRXIC REAL MATRIX. OUTPUT IS THE 

C ICXIR PSEUDO INVERSE (SEE GOLUB AND 

C VAN LOAN, "MATRIX COMPUTATIONS".?. 139 

C CAUTION: :r IF WARNING FLAG RESULTS DUE TO ILL CONDITIONED A*-T - A 
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RECOMMEND USING IMSL "LG INF" vice pinv 



c 
c 

C' 

C SUBROUTINE PINVCA. IR. IC.PIA) 

C IMPLICIT REAL *8 ( A-h , p-E ) 

C REAL-3 A(10.10).PIA(10.I0).AT(I0.i0J.MM(l0.l0).WAREA(250). 

C ! WMl(IG.lOJ.PA(I0.10J,APA(10.10).Tfl0.10) 
c integer ir.ic 

c FIND A TRANSPOSE 

C DC 10 I = 1 - IR 

C DO 10 J a 1 . IC 

C AT ( J , I ) = A ( I . J ) 

CO - CCNTINUE 
C FIND AT * A 

C CALL VMULFF(AT.A.IC.IR.IC.IO.lO.WM.lO.IER) 

C WRITE FOR PROGRAM DEBUG 

C DO COO III a 1 . IC 

C -RITE(<>.D000)(WM(II .<).<= 1 . IC) 

COOO FORMAT ( IX . a (El 0 . 3 . IX ) ) 

C001 CONTINUE 

C FIND inv<at * A> 

C CALL LINV2F(WM. ic. 10 .NM1 . 1 , WAREA. IER) 

C 'FIND INV<AT * A> * AT 

C CALL VMULFFCWM1.AT.IC.IC.IR.10.10.PIA.10.IER) 

C DETERMINE IF PSEUDO-INVERSE SATISFIES THE MOORE- PENROSE 

C CONDITION: AXA = A 

C CALL VMULFFCPIA.A. IC. IR. IC. 10. 10. PA. 10, IER1 

C CALL VMUL = F(A.PA. IR. IC. IC. 10. 10.APA.10. IER) 

C DO 15 I * I. IR 

C DO 15 J = 1. IC 

C TCI.J) * DASS(AC.J) - APACI.JJl 

05 CONTINUE 

C WR I T£ ( <> . 30 ) 

CO FORMAT ( //5x. ’ MOORE-PENROSE TEST FOR PScUDO-INV mm'./SX. 

C 1 *--** ABSOLUTE VALUECA - AXA) *•-*<♦•./) 

C DO 50 I a l.JR 

C WRITEC6.A0 J(T(I.J),J*1.ICJ 

CO FCRMAT(lX.a(E10.3. 1XJ) 

CO CONTINUE 

C RETURN 

C END 
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APPENDIX D 
RECONF 



C- 

C 



c 


RECONF: 


RECONFIGURATION ALGORITHM FOR THE F18 


c 






DYNAMIC MODEL 


c 


FILE 


Cl 




RECONF DATA = UNDAMAGED r- 18 SYSTEM MATRICES 


c 








(READ) OR 


c 








RECOXX DATA = DAMAGED F-18 SYSTEM MATRICES 


c 








(READ) 


c 


FILE 


02 




UNDEIG DATA = UNDAMAGED F18 El GENSTRUCTURE 


c 








(WRITE) OR (READ) OR 


c 








CPTEIG DATA = RECONFIGURED F18 E I GENSTRUCTURE 


c 








(READ) 


c 


FILE 


03 


= 


MATDREC DATA FOR "CONTROLS" (OPTMATD ) 


c 








(WRI’E) 


c 


FILE 


0A 


= 


PLOTREC DATA FOR "CONTROLS” (OPTPLOT) 


c 








(WRITE) 


c 


FILE 


07 


= 


FRECCN (RECONFIGURED GAINS) 


c 








(WRITE) CR (READ) 


c 


FILE 


08 




UNDA3C DATA = UNDAMAGED F18 MATRICES FOR NULL 


c 








SPACE ANALYSIS FOR ELASPACE (WRITE 3NGL PREC) 


c 


FILE 


09 


= 


ER SPACE (SLOW RIGHT El GENSTRUCTURE ) 


c 








(WRITE) 


c 


FILE 


10 


3 


RECEIG DATA = RECONFIGURED El GENSTRUCTURE 


c 








(WRITE) 


c 


FILE 


12 


3 


FXACT DATA s U81TC 



C (WRITE DURING K * 5 ) 

C 

C 

C CDR V.F. GAVITO 

C JUNE 1986 

C 

C 

IMPLICIT REAL *8 ( A-H -0-Z ) 

REAL*4 ASING(55.55) .83ING(55, 10) .C3ING( 18-55) 

DIMENSION A(55.55).3(55.10).C(18.55).G1(55'3)'G2(10'3)-F(10.18) 
DIMENSION FTILDA(10 . 18) -CLM(55 .55 ) . EG ( 55 . 55 ) . U8T ( 55 . 55 ) , 38 ( 55 ) 

D I MENS I ON WK8 (1 1 0 ) . CS ( 5 5 . 5 5 ) . UCT ( 5 5 . 55 ) . SC ( 5 5 ) . WKC (110) 

DIMENSION FTC( 10.55 ) .3FC55 .55 ) . CLMT IL ( 55 • 55 ) .WKT(CCO) 

DIMENSION WK(20G) .UNITY(55 .55) -WK1 (3200) .WA1 (55 ) 

DIMENSION AF 18(55. 55). 8F18(55. 3)« CF 18(18.55). DF 13(55.3) 

DIMENSION NAF 18(2). N8F 18 (2 ) < NCF 18 (2 ) »NCF 18 (2 ) 

DIMENSION U ( 3 ) • XX (55 ) • DUMA ( 55 ) .DUM5(55) 

DIMENSION NU ( 2 ) • NXX ( 2 ) . NDUM4 ( 2 ) . NDUM5 ( 2 ) . 8G I ( 55 . 5 5 ), CGI (55-55 > 
DIMENSION CT(55 .55 ) 

COMPLEX* 16 E (55 ) .X( 1 0 0 . 1 00 ) » DEL (55.55). UNI TYC( 55 . 55 ) , XDX ( 55 -55 ) , 
I XD( 55- 55). XI (55- 55) . XS (55 . 55 ) • XDXA( 55 • 55 ) 

COMPLEX* 16 UE0TC(55.55),U81TCC55.S5) . 3ZI NV ( 55 , 55 ) 

COMPLEX’* 1 6 UC0TC(55 -55 ) .UC1TC(55.55 ) .CZINV(55.55 ) 

COMPLEX* 1 6 3U3(55 .55 ) ,CUC(55 .55 ) .3UXD(55 -55 ) -FC( 55 -55 ) 

COMPLEX* 16 ETIL ( 55 ) • XTIL ( 100 . 100 ) • 8GIC( 55 .55 ) » CGIC (55 .55 ) 
COMPLEX* 1 6 ESLCWCO . XSLOW(55 , 24 ) .£S(55) .SR. 0(55- 55) 

COMPLEX *8 ECING(24) 

INTEGER K » IMOD » IWR I TE » IEVECT > IELE » I SLOW . KFAST * I ROW . I DI S . I RESP . 

* I RANKS, IRANKC, IROWC . I STATE ( 55 ) .K3TATE (55 ) . IORDER • I FULL , NCONT . 

*N3T . NSTP » I DAM 
CHARACTER *4 NAME 
C 

C INITIALIZE MATRICES 

C 

DO 10 I = 1,55 
ES ( I ) =■ 0 . DO 
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I5TATECI) = 0 



10 10 J i 1*55 

UNITYCI.J) = 0.00 

JNITYCCI.J) = DCMPLX C 0.00* 0.00) 

CLMCI.J) s 0.00 

DELCI.J) = DCMPLXCO .DO .0 .DO ) 

XDXCI.J) = DCMPLX (O.DO. O.DO) 

XO(I.J) = DCMPLX CO .DO . 0 .DO ) 

XKI.JJ = DCMPLX ( 3 . DC . 0 . DO ) 

XCI.J) = DCMPLX (0.00*0.00) 

3UXDC.J) = DCMPLX CO. DC. 0.00) 

UST(I.J) = 2. DO 

UCT(I.J) = 0 . DO 

5GI C I *J ) = 0 .DO 

CGI(I.J) = 0 . DO 

L'SOTCC I . J ) = DCMPLX (0.00*0. DO) 
JSlTCC.o) = OCMPLXC 0 . DO * 0 . DO ) 
3ZINVCI.J) = DCMPLX (0.00*0. DO ) 
CZINVCI.J) = DCMPLX (0. DO. 0. DO ) 
3SCI.J) = 0 . DO 
CS(I.J) = 0 . DO 

SGIC(I.J) = DCMPLXCO.DO.O.DO ) 
CGIC(I.J) = DCMPLXCO.DO.O.DO) 

10 A(I.J) = 0 . DO 

CD 15 I * 1.55 

UNITYC.I) = 1 . DO 

UNITYC(I.I) = DCMPLX( 1 .DO .0 .DO ) 





DD 


15 J 


= ] 


1 .10 


15 


SCI .J) = 


O.DO 








DD 


CO I 


= ] 


L . 18 




DD 


CO J 


= 1 


L.55 


DO 


CCI.J) = 


O.DO 








DD 


C5 I 


= ] 


1.55 




DD 


C5 J 


= ] 


L . 3 



U(J) = 0 . DO 
05 GKI.J) = 0 . DO 

DD 30 ! = 1 . 10 
DD 30. J = 1.3 
30 GCCI.J) = 0 . DO 

DD AO I = 1.10 
'DD AO J * 1 . 18 
FTILDAC.J) s O.DO 



AO 


FC.J) = O.DO 






DD 65 I * 


1 .COO 


A5 


NK Cl) = O.DO 






DD 50 I = 


1.55 


5 0 


E(I) = DCMPLX C 0 . 


o 

o 

O 




DD 55 I = 


1 . 100 




DD 55 J = 


1 .100 


55 


XCI.J) = DCMPLX CO .DO .i 


C 






r 




“P T (o' 



IPANK3 = 0 
IRANKC = 0 
C 

C READ IN SYSTEM DATA FROM FILE 01 "RECDNF’* DATA- 

C 

READC 1.100 JnamE 

RcADC 1 • 1 1 0 ) ( ( A ( I ♦ J ) , J = 1 .551.1 = 1.55) 

READ ( 1 .100 JnamE 

PEADC 1 . 110 )( CSC I .J ) . J=1 . 10) • 1 = 1 .55 1 
READC 1. 100 JNAME 

READC 1. 110 )( CGI C I. Jl.Js 1.3 l.I =1.55) 

PEADC 1. 100 JNAME 

READC 1»110)CCC(I.JJ.J=1.55). 1=1.18) 

READC 1 . 100 JNAME 

READC 1 . 110) C CFC! .J) . J = 1 . 18 ) . 1 = 1 .10 ) 

READC 1 . 100 JNAME 
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READ ( 1 i 110>l(G2CI.J>.J*1.3).:*l.l0) 
READ! 1 . 100 >NAM£ 

READ! 1 . 110 )( (CLM(I . J).J=1 .55 ) .1 = 1 .55 ) 



100 


FORMAT! IX. A4) 






101 


FORMAT (412) 








110 


FCRMAT (4D20 


.13 ) 






111 


FCRMAT ( 6E12 


.5 > 




















GL. 






CALL 


FRTCMS! 


' CLRSCRN 


* ) 




WR ITE(6. 150 ) 




150 


FORMAT ( /5X 


• ‘ENTER 


•‘1“ TO W 


RITE UNDAMAGED El GENSTR UCTURE . 8 ' 






,/5x, ' 




SYST. MATRICES. (READ “RECOnF- Data ai , 






,/5x. • 




"UNDIEG“. ,, UNDABC“.3 “CLM”. 




* . /5X , 




ENTER ,; 2" 


TO READ UNDAMAGED EIGENSTRUCTURE AND 1 




* . /5X 


. 




WRITE SLOW RT SUBPACE DATa FOR USE BY' 










■‘ERSPACE’* (WRITE “ERSPACE“ DATA Al ) 




* 




ENTER ”3“ 


TO COMPUTE RECONFIGURED GAINS. 




# 






(WRITE “FRECCN*' DATA Al ) 




« 




ENTER “4“ 


TO COMPUTE RECONFIG. EIGENSTRUCTURE 










AND TIME RESPONSE ( QP T MATD . QP TPLQ7 ) 








ENTER “5“ 


’ TO COMPUTE Q AND WRITE FILE 12 




* 






“FXACT" DATA . 




READ! 


" .155 )K 





155 e QRMAT (II) 

160 format ( i 2 ) 

CALL FRTCMSC ‘CLRSCRN ’) 
IF(K.EQ.5 )GOTQ 272 
IFfK.EQ.A )GQ70 21 1 
I F ( K .EG . 3 )GQTQ 170 
IF ( K . EQ . 2 )GQTQ 170 



C G T ORE UNO CL IN UNITY MATRIX 

DO 165 I = 1.55 
DO 165 J » 1.55 
165 UNITY! I . J ) = CLM ( I . J) 

CALL £IGRF(CLM.55 .55. 1 .E.X. 100.WK. IER ) 
WRITE! 2. 11 OH ( X C I. J ). J*l ,55 ) . 1 = 1 .55 ) 
WRITEC. U0)(E(I). 1 = 1. 55) 

C DO 156 I = 1.55 

C DO 156 J = 1.55 

C AA s A( I . J ) 

Cl 5 6 ASING(I.J) = SNGL(AA) 

C DC 157 I a 1.55 

C DO 157 J r 1.10 

C B8 = B(I.J) 

C157 BSING(I.J) * SNGLCBB) 

C DO 158 I * 1. IB 

C DO 158 J = 1.55 

C CC » C(I.J> 

C15B CSING(I.J) = SNGL(CC) 

C WRITE (8. ill )( (AGING! I .J).J=l .55). I a 1.55) 

C WRITE18. Ill HISSING! I.J).J*1 .10). I« 1.55) 

C WR ITE !8. Ill )((CSING(I.J).Ja 1.55 1.1=1. IB) 

WRITE! 11 . 110 >( (UNITY! I .J ). J = 1 .55 ) . 1 = 1 .55 ) 
C WRITE! 11. 1101! (G1(I.J).J=1.:>. 1=1.55) 

C WRITE! 11. 110H (C:(I . J).J=1.3>. 1=1. 10) 



GOTO 9000 

170 READC. 110 )( (X! I . J) .J*l .55 ) . 1 = 1.55 > 

READC. 110)(E(I). 1 = 1. 55) 

IF ( K . EO . I ) GOTO 1B0 
C 

C DECOUPLE LATERAL DYNAMICS FROM STABS 

C DECOUPLE LAT VECTORS FROM LONG ELEMENTS 

177 WRITE! 6 . 17C ) 

172 FQRMAT(/5X« ' hmh* ENTER "I" TO MODIFY DESIRED El GENSTR UCTURE """a*. 

* /5X.'«»'i» ELSE ENTER 

*/ ) 

READ!". 155 ) IMQD 
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./5X 

• /5X 
. /5X 
./5X 
./5X 

• /5X 
,/5X 
./) 



CALL FRTCMSC 'CLRSCRN '3 
IFC IMOD.EQ. 0 3GCTO 180 
CALL FRTCMSC 'CLRSCRN '3 
C DO 178 I = l .16 

C IF( I . LE - 6 3GOTO 178 

C IFC 1.GE.93GOTO 175 

C GOTO 178 

C75 XCI.42) = DCMPLXCO. DO. 0.003 

C XCI.52) = DC.VPLXCO. DO.O.DO 3 

C XCI.653 = DCMPLX C 0 . DO . 0 . DO 3 

C X(I.6I)s DCMPLX (0. DO. 0. DO 3 

C 78 CONTINUE 

DO 179 I = 5.8 

C XCI.38) = DCMPLX C 0 . DO • 0 . DO 3 

C XCI.3®3 = DCMPLX C 0 . DO • 0 . DO 3 

C XCI.A2) S DCMPLX C 0 . DO . 0 . DO 3 

C XCI.663 = DCMPLXC0.D0.3.D0) 

XC I . I 3 s OCMPLXCO.DO .O.DO 3 
XCI.C3 = DCMPLX C 0 . DO . 0 . DO 3 
XCI.33 * DCMPLX C 0 . DO . 0 . DO 3 
XCI.4) * DCMPLX CO. DO. O.DO 3 



C XCI.73 = OCMPLXCO.DO. O.DO 3 

C XCI.33 = DCMPLX CO . DO • 0 . DO 3 
C XCI.173 = DCMPLX C 0 . DO . 0 . 00 3 

C XCI.I8) * OCMPLXCO.DO. O.DO) 

179 CONTINUE 
C 

c DISPLAY DESIRED EIGEN3TRUCTURE IF REQUIRED- 



180 NRI-ECS.171) 

171 FORMAT C /5X. '*** * ENTER "I" TD DISPLAY DESIRED EIGENSTRCTURE* * * * ’ . 

1 /5X. '<**»- ENTER ''O'' OTHERWISE. 

2) 

READ C *« . 155 1IWRITE 
call FRTCMSC 'CLRGCRN ') 

IFCIWRITE.EQ.O 3G0TD 255 
WR I TEC 6 . 200 3 

200 FORMATC/5X. ' ««<<» UNDAMAGED CDESIRED) E IGENSTRUCTURE DF FI8 •««*«'./ 

1 1 

DO 250 I a 1.55.6 

WRI TEC 6. 2 1031. • I *1.1 *2. I *3. EC I 3. EC 1*1 3 . E C I *2 3 . E C I *3 3 

210 F0RMATC/2X. 'EIGENVALUE NO. ‘ • 12 »8X. 6X. ’ EIGENVALUE NO. '.12.I2X. 

1' EIGENVALUE NO. *. 12 . 12X. ‘EIGENVALUE NO. ' . 12 . /2X . E 12 . 5 . IX . El 2 . 5 

2 2X.E12.5. 1X.EI2.5.2X.E12.5* 1X.EI2.5.2X.E12.5. 1X.E12 .5./) 

211 FORMAT C2X.E12 .5. IX . E 12 . 5 . 2X . £12 . 5 . IX , E 12 . 5 • 2X .E12 . 5 . IX . E12 . 5 . 2X , 

1 E12.S.IX.E12.5./J 

WRI TEC 6 .220 3 CXCJ. I 3 .XCJ. 1*1) .XCJ . 1*2 3 .X( J. 1*3 3 . J=l .55 3 
220 FCRMATC2X.E12 .5 . 1X.E12.5 .2X.E12 .5 . 1X.E12 -5.2X.E12 .5 . 1X.E12 -5 .2X. 

IE 1 2 . 5 . IX . EI2 . 5 3 
250 CONTINUE 

c 



c CDMPUTE X«DEL*X"«-1 CUNDAMAGED/DESIRED EIGENSTRUCTURE )• 

C 

255 DD 260 I * 1.55 



DEL Cl. 1) = EC I 3 
DO 260 J = 1.55 
260 XSCI .J) = XCI .J) 

CALL CMATMLCXS.DEL.55 .55 .55 .XD) 

CALL LEQT1C CXS . 55 . 55 • UNI TYC • 55 . 55 . 0 . WA l . IER 3 
CALL CMATMLCXD.UNITYC.55.55 .55 .XDX) 

C 

C COMPUTE SVD DF 8 AND C CDAMAGED 3 

c 

272 DD 270 I = 1.55 

U8TCI.I) = 1 . DO r 

DD 270 J * l. 10 

270 8SC I . J 3 = SC I . J 3 

WRITEC6.271 3 

271 FDR MAT C /5X .•**** * CALLING LSVDF FOR 8 «*«"'./) 
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call LSVDFC8S.S5 .55, 10. U8T.55 -55.38.WKB. IER ) 

WRITEC6.275) 

275 FORMA T ( /5X. * «*"•«• LSVDF OF "8" COMPLETE '♦«««*./) 

CALL RANKO( 83 . U8T , S3 . 55 . 10 . U50TC. U31TC. 8ZINV. IRANK8.8GI ) 
WRITEC6 .276 J1RANKS 

276 FORMATCSX,' RANKC3) = '.12.' ««•««■ I 

C 

DO 280 I = 1.18 

ucKi.n = l.oo 

00 280 J = 1.55 
CTCJ.I ) = CCI.J) 

280 CSCl.J) s CCI.J) 

wR I TEC 6 . 28 1 ) 



281 F0RMATC/5X. ■ « CALLING LSVOF FOR C »•*»'./) 

CALL LSVDF CCS. 55 . 18 . 55 . UCT . 55 . 18 . SC . WKC . IER ) 
WRITEC 6*282 ) 

232 FORMAT C /5X. ' LSVOF OF **C" COMPLETE ««««*./) 



CALL PANKOCCS. UCT. SC. 18.55. UC0TC.UC1TC.C2INV. IRANKC.CGI ) 
WRITSC6 .283 JIRANKC 

283 FCRMATC5X, '«»»•« RANK C C ) = '.12.* «•«•••) 

IFCK.E0.3 )GOTO 295 
IFCK.EQ.5 )GOTO 312 
C 

C WRITE SLOW EIGENSTRUCTURE 

C 

C 8UIL0 SLOW EIGENSPACE 

28 b I SLOW = 0 



KFaST = 0 

00 285 I * 1.55 
ECHECK a OREALCEcn) 

ECHECA = 0A8SC ECHECK) 

C FOR 5YMME-RIC CASES USE Z < 8 . 50-0 1 => 20 STATES 

C SYMMETRIC CASES 

C FOR SEGMENT 1 : C29 ) USE Z < 7.590-01=> 29 STATES 

C FOR SEGMENT 2 : 3.590-01 < Z < 7.5 Q 0-01 

C FOR SEGMENT 3 : 0. < Z < J. 590-01 

IFCECHECA.LT. 8 .SO-ODGOTO 289 
C IFCECHECA.LT. 3 .59D-0DGOTO 289 

C IFCECHECA.LT. 7.59000-01 JGOTO 289 

C IFCECHECA.GT. 3.590-01 1G0T0 289 

1 SLOW = I SLOW * 1 

C ISTATE = vector of inoices CORRESPONDING to slow states- 

I STATE C I SLOW) = I 
ESLOW C I SLOW ) 3 EC I ) 

ESINGCISLCW) = E C I ) 

CALL SROOTCECD.l.SR. .0125) 

WR I TE C 6 , 2 9 1 ) I SLOW , I .SR 



291 FORMAT C IX . ' SLOW STATE NO. ‘ . 12 . ’ UNO STATE NO. ’ .12.' S = ' .E12.5. 

-IX.E12.5. ‘ J* ) 

00 285 J a 1.55 
XSLOWC J » I SLOW ) 3 X C J . I ) 

GOTO 285 

289 KFAST = KFAST * 1 



C KSTATE = VECTOR OF INOICES C0RE5P0N0ING TO FAST STATES- 

KSTATECKFAST) = I 
285 CONTINUE 



IFCK.NE. I )GOTO 287 

WRITEC8. 101 ) ISLOW 

WRITEC8. Ill MESINGCI ). 1*1. ISLOW) 

GOTO Q 000 

28 7 I ROWS = ISLOW 

WRITEC 9 .256 ) IROWS . KFAST . I RANK8 . I RANKC 

256 FORMAT C9 1 2 ) 

WRITE (9, 110) CEC I ). 1=1.55) 

WRITEC 9. 110 )C CXCI . J) . J*1 .55 ) . 1 = 1 .55 ) 
WRITEC 9. 25 7 )C ISTATE Cl ) .1=1. IROWS) 
WRITEC 9.257 HKSTATEC I ) . 1 = 1 . Kr AST ) 

257 FORMAT C9C 1 2 ) 

WRITEC9, 110) C ESLOW ( I ). 1 = 1, IROWS) 
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WR I T£ C 0 • 1 1 0 ) ( (XSLDW ( I . J J . J» 1 . 1 RDW3 1.1 = 1.55) 
WRITEC9. 110H (A< I . J) , J = 1 .55 ) . 1*1 .55 ) 

IRCU = 55 - IRANK3 
WRITEC9.256) I ROW 

WRlTg(9. 110) ((JBlTC(l.J).J *1.551. I = 1.1 ROW) 
wRI~EC?.110)((CT(I.J).J=l. 13). 1=1.55) 

GOTO 9000 



C 

C =ISD RTILOA (RECONFIGURED GAINS )-• 

C 

295 GO 300 I = 1.55 

DO 300 J = 1.55 
SR = 331(1- J) 



3GICCI.J) * DCMPLX(BR.O.DO) 

CP * CGI(I.J) 

CGIC(I.J) = CCMPLX (CR . 0 . DO ) 
aR = A ( I . J ) 

300 XDXA(I.J) = XOXCI.J) - DCMPLX(AR.O.DO) 

IF (K . ED . 5 )GDTO 312 

303 CALL CMATML(5GIC.XDXA. 10. 55.55. 3UXD) 

CALL CHA7MLCSUX0.CGIC. 10 .55 . 18 .~C) 

DO 310 I = 1.10 
DO 310 J = 1.18 

C FLAG IF complex gains are 8EING COMPUTED- 

CHECK = DIMAG(rC( I . J ) ) 

CHECKA = DA3S( CHECK) 

IFCCHECKA.L'. 1 .D-03 )GDTD 310 
302 WRITE (6. 331 )I.J. CHECKA 



301 FCP M AT(/5X. * COMPLEX "EEC 8 AC < GAIN (’.12. '.'.12.') 
310 FTILDACI.J) = DREAL(FC(I . J ) ) 

GOTO 319 
C 

C WR I TE FXACT FILE 12 



C 

312 UR I TE ( 1 2 . 1 1 0 ) ( ( UB 1 TC ( X . J ) . J = 1 . 55 ) . I = 1 . I ROW ) 

GOTO 9000 
C 

C WRITE FTILCA CN FILE 07 AND STOP 

C 

319 WRITEC7. 1 10 )( (FTlLDAd . J). J*1 . 18 ) . 1*1 . 10 ) 
GOTO «000 



C 



.READ FTILDA FROM FILE 07 AND CONTINUE- 



C 

311 REAOC7. 110)((FTILOA(I.J).J=1 . 18). 1=1 .10) 

C 

C FIND EIGENSTRUCTUPEG OF RECONFIGURED SYSTEM- 



C 

CALL VMULFF (FTI. DA. C. 10. 18.55.10. 18. FTC. 10. IER ) 
CALL VMULFFC3.FTC.55. 10.55.55.10.BF.55.1ER) 

DO 320 I = 1.55 
DO 320 J = 1 .55 

CLMTILC I . J ) * A(I.J) * 8FCI.J) 

32C AF18CI.J) = CLMTIlCI.J) 

CALL EI3RFCCLMTIL.55 .55 . 1 . ETIL . XT IL . 1 00 . WKT . IER ) 
CALL SRDOT ( ETIL . 55 . ES • .0125 ) 

C 

c "IND CLM FOR NOMINAL SYSTEM 

C NOTE: USING CLmTIL FOR AF18 NOMINAL DUE TO STORAGE LIMITS 
C CLMTIL IS USED for modal following 

CALL VMULFFC.-.C. 10. 18 . 55 . 1C . 18 .FTC. 10 . IER ) 

CALL VMULFF ( B . FTC . 55 .10. 55- 55. 10. 3F. 55. IER) 

CD 322 I = 1.55 
DO 322 J * 1.55 

322 CLMTIL(I.J) = A(I.J) - 8FCI.J) 



C 

C WRITE FILE 10 RECEIG DATA- 

C 



E12.5 ) 



WRITE! 10. 1 1 0 ) C (XTIL(I.J) . J*1 .55 ) . 1*1 .55 ) 
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WRITEUOt IIOHETIU I ). I«I .55 ) 



C 

C OISPLAV RECONFIGURED E I GENSTR UCTURE 

C 

WRITEC6.325) 

325 FORMAK/5X. ’ **««« ENTER '•l" TO OISPLAV RECONFIGUREO •"»«»' 

1 . /5X » '*->•- E I GENS TR UCTURE . ELSE ENTER "0”. 

: . / ) 

REAO( • 155 ) IDIS 
IFdDIS.EQ.O JGOTO 600 

326 WRITEC6.330) 

330 FORMAT C/5X, •"*** - RECONFIGURED El GENSTR UCTURE "''*"*./) 

DO 335 I = 1.55.4 

WRITEC6 .210 )I . M. I ♦ 2 . 1 * 3 . ET IU( I) .ETILC I* I ) .ETIL ( I *2 ) .ETIL ( I *3 ) 

WR I TE ( 6 . 2 1 1 ) ES ( I ) . ES ( I * I ) . ES ( I ♦ 2 ) • ES ( I * 3 ) 

WRITEC6.220)(XTIL(J.n.XTIL(J.IM).XT!L(J.I*2).XTIUJ.I*3).J=I.55) 
335 CONTINUE 
C WRITE (6. 336) 

C336 FORMATC/5X. ’h#** OAMAGED EIGENSTRUCTURE ««««•./) 



C DO 337 I * I .55 .4 

C WRITE (6. 210)1. I * I *1*2. t ♦ 3 . EOAM ( I ) . EOAM ( I *1 ) . EDAMC I *2 ) .EOAM( 1*3) 

C WRITE (6 .200 ) CXOAMC J . I ) ,XOAM( J . 1*1 ) .XOAM( J. 1*2 ) . XDAM ( J . 1*3 ). J*l .55 

C337 CONTINUE 
C 

C DISPLAY F ANO C TIL0A 

C 



400 WRITEC6.340) 

340 FORMAT (/5X. 1 OAMAGEO FEE08ACK GAIN MATRIX ****', //5X , * COL 1-9 

1 • ./ ) 

DO 365 I = 1.18.8 

WR IT£ (b.36ti)(F(J.I ) «F ( J . I ♦ l ) . F ( J . I *2 ) • F ( J . I *3 ) ,F ( J » 1*4 ) . F ( J . I *5 )• 
1 F(J.I*6).F(J.I*7),r(J.I*8).J=I,I0) 

IF C I.GT.2)GOTO 342 
WRIT£(6.36I ) 

341 FORMATC/5X, 'COL 10 - 18’./) 

345 CONTINUE 

346 FORMATC2X.9CEI2.5. IX) ) 

342 WR I T £ ( 6 » 3 5 0 ) 

350 FORMATC/5X, 1 FTILOA .//5X.’ COL I-?*./) 

00 355 I = I . 18.8 

WRITE (6.366 ) (FTILOACJ. I ).FTILDA(J. 1*1 ).FTILOA(J.I*2).FTILOA(J. 1*3 

1 ) .FTILDACJ. 1*4 ) .FTILOACJ, 1*5 ). FTILOACJ. 1*6) . 

2 FTILOACJ. 1*7 ) .FTILOACJ. I *8 ) . J = I . I 0 ) 

I F ( I . GT . 2 ) GOTO 401 

WRITEC6.351 ) 

351 FORMATC/5X. * COL 10 - 18'./) 

355 CONTINUE 

C 

C 8UIL0 AF18.8F18.CF18.0F18 FOR RESPONSE CALCULATION ANO PLOTTING 



C 

401 WR I TE ( 6 . 3 60 ) 

360 FORMATC/5X. ' ***** ENTER "I** FOR TIME RE3PGNSE CALC. /5X. 

I •<*** ENTER m 0'* OTHERWISE. "«««•,/) 



READ! * • 155 ) IRESP 
IFCIRESP.EO.O)GOTO 9000 
602 NAF 18(1) = 55 . 

NAF 18(2) = 55 

CALL VMULFFC8.G2.55. 10.3.55. 10.8FI8.55. IER) 
DO 405 I = 1.55 
00 405 J = 1.3 

405 8FI8CI.J) * Gl(I.J) ♦ 8FI8CI.J) 

N8FI8 Cl) a 55 
NEF18C2) = 3 
00 410 I = 1,18 
DO 610 J = 1.55 
410 CF18CI.J) = CCI.J) 

NCF18C1) = 18 
NCFI8C2) = 55 
00 415 I - 18 



190 



DO 415 J = 1.3 
415 0F18CI .J) = 0.00 

NOFIS(I) = 18 
NDF18(2) =■ 3 

c 

c 

C COMPUTE RESPONSE “OP 500 DATA ®0INTS AND CREATE OPTPLOT DATA FILE 



WRITE(6.500) 

500 F0RMA7(//1X. ‘COMPUTING TIME RESPONSE’) 

C-- WRITE OPTPLOT PARAMETERS ANO NULL FEEDBACK MATRIX INTO DATA FILE — 
ICRCER = 55 
NDU V 4 C I ) = IORCER 
NDUM4 ( 2 ) 5 3 

CALL NULL ( OUM4 . NDUM4 ) 

I FULL = NDUM4C1 J-NDUM4 (C ) 



C WPITEC4.510) IORDER .3.501.1.1 
C WPITEC4.515) (DUM4 ( I ) . [ = 1 • I FULL) 

510 FCRMAT(5I5) 

515 FORMAT (5E14 . 7 ) 

C INITIALIZE THE state ANO input VARIA8LS 



NXX(1 ) =55 
NXX ( 2 ) s 1 
NUC1 ) = 3 
NU(2)=1 

CALL NULL (XX. NXX) 

CALL NJLL(U.NU) 

C COMPUTE RESPONSE- 



C 

WRITEC6 .501 ) 

5Z1 FORMAT ( /5X. ‘ ENTER "1” FOR MODAL FOLLOWING /5X , 

I ’»**>< ENTER ”0” OTHERWISE. *»«*•./) 



REAO ( * . 155 )IDam 

CALL FRTCMSC ’CLRSCRN ’) 

AMP = 1 . 

NCONT = 1 
KlST = 0 
NSTP = 240 
TS = .0125 
DO 520 1=0.500 • 

TIME=I*TS 

c CHECK CONTROL PARAMETERS AND SET CONTROL INPUT 

IF ( I .GS.NST.AND. I .LE.NSTP ) THEN 
JCNCCnT )=amP 

ELSE 

UCNCCNTJsO. 0 

END IF 

WRITE (4. 5 30) TIME. (U(J).J= 1.3). (XX (J).J=1. IORDER) 



C RESET SCALE FACTORS FOR X3.X4.X6.X7.X8 

C TO RAOIANS FOR PROPER CALCULATIONS 



DO 800 K = 1 . 10 
:*(K.LT.3.0R.K.GT-8 )GOTO 800 
IF (K . EO . 5 )SOTO 800 
XX(K)=XX(K)/5. 720*0*01 



800 CONTINUE 

c MULTIPLY AF 18 8Y XX(N) 

IORDER = 55 

c CHECK IF MODAL FOLLOWING IS RECO- 



IF(IDAM.EQ.O)GOTO 525 
IF(XX(8).LT.0.C) GOTO 525 
00 531 m = 1. IORDER 
0UM4 ( M ) a 0.00 

DO 5 35 N s 1 . IOROER 

525 DUM4(M) = DUM4(M) ♦ CLMT IL ( M . N ) -XX (N ) 
521 CONTINUE 

GOTO 545 

525 DO 540 M a 1 * IORDER 
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DUM4 CM ) =0 • 0 

DO 550 N*1 , I ORDER 

550 DUM4 CM)*DUM4 C M ) +AF 18 ( M , N ) " XX (N ) 

540 CCNTIMUE 

C MULTIPLY 3F18 3Y UCN ) 

545 DO 560 M* 1 • IORDER 

DUM5 CM ) s 0 . 0 

DO 570 Nsl.S 

570 DUM5 (M)=0UKS(M )*8F18(M.N )«U(N ) 

560 CONTINUE 

C ADD AF 13 XX(N) ANC BF 18 U(N) 

DO 58 0 M s 1 . ICRDER 
XX ( M ) =DUM4 CM)* DUM5 ( M ) 

C SCALE XX3.XX4.XX6.XX7.XX8 TO DECREES FOR PLOTTING PURPOSES 



C 

IF CM.LT.3.0R.M.GT.8) GOTO 580 
IF CM.EQ.5) COTO 580 
222 XXCM) * XX ( M ) #5 . 72960*01 
580 CONTINUE 
520 CONTINUE 
530 FORMAT ( 5E 1 4 . 7 ) 



C 

C CREATE OPTMATD DATA FILE 

C 

C CALL WRMATOCAF18.BF18.CF18.DF18. 75. IORDER) 
WRITE! e. 39° ) 



FORMATC//1X. 'RESPONSE COMPLET E-CP M A TD AND OPTPLOT DA T A FILE CREATE 
“D* ) 

WRITEC6 . 1000 ) 

1000 FORMA”! // IX. 'TO PLOT RESPONSE GO TO CONTROLS EXEC. SELECT ORACLS. 
*TH£N SELECT OPTPLOT.', 

"/lX.'YOU MUST 8E AT A 618 TERMINAL ' ) 

<»000 STOP 

END 

C 

C SL8ROUTINE CMATML (COMPLEX MATRIX MULTIPLICATION) 

C 

C COMPUTES : YY s AA « B3 

C IA s a OF ROWS IN AA 

C LL = 3 OF ROWS IN B8 AND 3 OF COLUMNS IN AA 

C 18 s # OF COLUMNS IN SB 

* * * 

SU3ROUTINE CMA”ML ( AA .B8.IA.LL. 13. YY) 
implicit realms ( a-h. 0 - 2 ) 

COMPLEX* 16 AA C 55 • 55 ) . S3! 55 . 55 ) . YY CSS . 55 ) 

INTECER IA.LL.I8 
00 30 I = 1 . IA 
00 20 J = 1.13 
YYil.J) s !0. 00.0. DO) 

DO 10 INDEX * l.LL 

YYCI.J) = YY ! I , J ) ♦ AACI. INDEX) * B8 ! INDEX .J ) 



10 


CONTINUE 


20 


CCNTINUE 


30 


continue 



RETURN 

ENO 

C***** ■■*"«*"***•«**««** «*« 

C 

C SUBROUTINE RANKO: COMPUTES REQUIREO 8LOCK STRUCTURES OF SVD 

C OF "35 M FOR USE IN E I CENSTRUCTURE ANALYSIS 

C COR V.F. CAVITO 

C JUNE 1986 

C NOTE: RZINVC IS NOT EEINC COMPUTED !!! 

C 



SUBROUTINE RANKOfBS.UT.S.N.M.UOTC.UlTC.RZINVC. I RANK . BC I ) 
IMPLICIT REAL H 8 ( A-H . 0-2 ) 

REAL*8 8SC55 .55 ) .5(55 ). SMC 55. 5 5 ) .R2C55 .55 ) .R2INVC55 .55 ) . 
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I U( 55 . 55 )«UTC 55 . 55 )«VTC 55 . 55 )*SIC 55 ).WKC 50 ).SMI( 55 . 55 ) . WARSACDOO ) 
0 .BGIC 55 . 551 . 5 SMC 55 . 55 ) 

COMPLEX - 16 RZINVCC 55 . 55 ).U 0 TCC 55 . 55 1 .U 1 TCC 55 .55 ) 

INTEGER N.M.IRANK 
;rank s m 
CO 1 I = 1.55 
DO I J = 1.55 
BGICl.J) a 3 . DO 
RZCI.J) a 0 . DC 
RIINVCI.J) = 0 . DO 

uotcci.jj = ( o . do > c . D 3 1 

U 1 TCC.J) = CO. 33 . 0 . SGI 
RZINVCCI.J) = CO. DO. 0 . 03 ) 

UCI.J) = 0 . DO 
SMCI.J) = 3 . DC 
SMICJ.J) = 3 .D 3 

1 VT ( I . J ) s 3 . DO 

DO D I * 1.50 

2 WKC I ) a C.DO 

DO J I = I.M 
IFC 5 CI ).GT.O.D 3 )GOTO J 
IRAN’K = I-I 
GOTO 4 

Z CONTINUE 

4 DC 33 I a l.N 

DO 30 J a l.N 
33 UCI.J) = U 7 CJ.I) 

DC 40 I = l.N 
DO 40 J = I . IPAN< 

40 UCTCCJ.I) = DCM=LXCUCI.J). 0 .D 0 ) 

DO 5 3 I = l.N 

DO 50 J a IRAN* * l.N 

50 UITCCJ-IRanK. I ) = DCMPLXCUCI .Jl.O.OO) 

C DO 60 I * I.M 

DO 6 3 I = 1 . 1 S 4 N.< 

DO 63 J a I.M 
60 VTCI.J) a 3 SCJ.I) 

DO 70 I a 1 , I RANK 
70 SMCI.I) a SCI) 

CALL VMULF=CSM.vT. IRANK.m.m. 55 . 55 . RZ. 55 . IER ) 
C 33305333333 S 333 S 333 NOTE: RZINV IS NQT COMPUTED : 3 3 333 3 33 3 3 3 3 33 333 3333 33 



C CAU- uGlNrCRD. 10 . I Rank. m . "OL . RZINV • 1 0 . Si . wK. IER ) 
C 



DO SC01 I = 1 . I RANK 

S0C1 SMKI.I) S 1.D0/SMCI.I) 

CALL VMULF-CSS.Gm: ,M. IRan<. I RANK. 5 5 .55 .RZINV.55 . iER) 
DO 80 I = I.M 

DO 80 J = I.IRANK 

80 RZINVCCI.J) a DCMPLXCRZINVCI . J1.0.D0) 

CALL VMULFF CBS . SMI .M . I S AN< . I RANK . 55 . 55 . BSM . 55 • IER) 
CALL VMULrr C3SM . UT ,M, I RANK . N . 55 . 55 . SG I .55. IER) 

RETURN 



END 



*««*" SUBROUTINE LRmaTD 

C 



C urmaTD WRITES THE ' AFI8 ’ . * SF18*. *CF18’. AND ’CPIS’ 

C MATRIDIES TO T’~E CP M ATD data file, extra null m atr icies are also 

C CREATED AND STORED ”0 CONFORM TO THE OP-ATD DATA FILE STRUCTURE. 

C THESES MATR ICIES ARE THE ’GahJ’. 'FD’ . *FK* . ’DO'. ’RD'. ’VI*. 

C * VD * , AND ’SD’ . 

C 



SUBROUTINE wpmaTDCAD.SD.hO.GD.DELT.ICRCER ) 
IMPLICIT PEAL-8CA-M.O-2) 

FIS SYSTEM MATRICIES 



C 

c 

c 
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DIMENSION AD (55 .55 ) .80(55 . 3 J.HDCIA .55 ) .GDC l A. 3 ) 

C 

C EXTRA MATRIC1ES REQUIRED IN DPMATD DATA FILE 

C 

DIMENSION FD(55.3).FK(55.1A).0D(lA.lO.RD(3.3).V2(lA. 10.SD(5S.10 
C 

DIMENSION NFD(2 ) .NFK (2 ) ,N0D(2) .NRCC2 ) . NV2 (2 ) .NSDC2 ) 

INTEGER IDRDER 

C CREATE NULL MATRICIES TO BE STORED ON DPMATO 

NFD( 1 1=3 
NFD(2 ) = ICRDER 
NFK ( 1 ) = I ORDER 
NFK ( 2 ) = 1 A 
NQO ( 1 )=1A 
NCD ( 2 ) = 1 A 
NR0C1 1=3 
nRD(2)=3 
NV2 ( 1 ) = 1 A 
NV2 ( 2 ) = l A 
NSD( I ) = ICRDER 
NSDC2 I*IA 



c 

CALL NULLCFD.NFD) 

CALL NULL (FK. NFK) 

CALL NULL(QD.NCD) 

CALL NULL(RD.NRD) 

CALL NULL (V2 »NV2 ) 

CALL NULL(SD.NSD) 

C WRITE MATRICIES TD DPMATO DATA FILE- 

I = 0 



IANS = 1 
IDOPTD = 1 
WRITEC3. 150 ) 
WRIT£(3. 120) 
WRITEC3. 131) 
WRITEC3, 130) 
WR1TEC3. 132 ) 
WRITE (3. 130) 
WR1TEC3. 133) 
WRITEC3. 130 ) 
WR1TEC3. 135) 
UR I TEC 3, 130) 
WRITEC3. 136) 
WRITE(3. 130) 
WR1TEC3.137) 
WR1TEC3. 130) 
WRITEC3. 138) 
WR 1TE( 3 . 1 30 ) 
WRITEC3.13?) 
WRITE! 3. 130) 
WR1TEC3. 141 ) 
WRITE(3. 130) 
WRITEC3. IA2) 
WRITE(3. 130) 



I . IANS. IDDPTD 
1 ORDER . 3 . 1 A . 0 . 1 . DELT 

((AD(I.J).J«I.IDRDER).I«1. IDRDER) 

( ( BD( I . J ) . J= 1 . 3 ) . 1 = 1 . 1 ORDER) 

( (HD( I . J ) . J= 1 . ICRDER). 1=1 . 1A ) 

((FOCI. J).J«1. IDRDER). 1*1. 3) 

( (FK( I . J ) . J=1 . 1A ). 1 = 1 . IDRDER) 

( (GD(!.J).J=1»3). 1*1.10 

( (QD ( I . J ) . J= 1 ,IA). 1 = 1. 1A) 

((RD(I.J).J=1 .3). 1=1. 3) 

((V2(I.J).J*1. 10.1 = 1.10 

( (SO (I . J) . J=I .3 ) . 1=1 . ICRDER ) 



C- 
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FCRMATC515.5X.F1Q. 5 ) 


130 


FORMAT ( A 020 . 1 3 ) 


131 


FORMAT ( 1X.2HAD) 


132 


FORMAT ( 1 X , 2HB0 ) 


133 


FORMAT ( IX. 2HH0) 


1 3 A 


FOR MAT C 1 X . AHGAMO ) 


135 


FORMAT ( IX . 2HFD ) 


136 


FORMAT ( IX . 2HFK ) 


137 


F0RMATCIX.2HGD) 


138 


FDRMATUX.2H0D) 


13? 


FORMAT ( IX . CHRD ) 


1 AO 


FORMATC 1X.2HV1 ) 


1 A 1 


FORMAT ( IX. 2HV2 ) 


1 A 2 


FORMATC IX, 2HSD) 
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150 



C" 

c 

c 

c 

c 

c 

c 

c« 



FORMAT(IU3X. IU3X, ID 
RETURN 
END 



SUBROUTINE SROOT: CONVERTS Z- PLANE ROOTS TO 
3-PLANE ROOTS 

CDR V.F. GAVITO JULY 1986 



SUBROUTINE SROOTCr.N.S.T) 
IMPLICIT REAL “3 (A-H » 0-? ) 
CCMPL£X*16 ZC55 ) *3(55 ) 
INTEGER N 
DO 10 I = UN 
RS = DIMAGCCn ) 

RC = DREALCZ(I)] 

S = (DATANDCRS.RO )/t 
rd = CDABSCZ : i ) ] 

A = -DLOGCRDi/T 
SCI) = DCMPLX(-A.B) 
CONTINUE 

RETURN 

END 
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APPENDIX E 
ERSPACE 



--- -- ****** ******** -----"*-** 

C 

C ERSPACE: TESTS IF DESIRED /UNDAMAGED SLOW RIGHT EIGENVECTORS 

C ARE MEMBERS OF THE DAMAGED RIGHT HAND NULL SPACES, 

c AND WRITES DATA FILE FOR USE 3Y ELSPACE 

C 

C CDR V.F. GAVITO 

C JULY 1 ?8 6 

C 

C FILE 01 * ERSPACE DATA 

C (READ ) 

C FILE 08 = ELSPACE DATA (LEFT EIGENSPACE DATA) 

C (WRITE) 

* 

IMPLICIT REAL*8(A-H.G-Z) 

DIMENSION A (55 .55 ) .RESR(2A ) .CT(SS . 55 ) • WA( 55 ) . UNITY ( 55 . 55 ) 
COMPLEX- 16 X(5S.55)*E(5S ).X3( 55*55 )-T( 55*55 ) -TCLCW( 55. 24) 
COMPLEX’* 1 6 U1TCC55 -55) -AMLC55 -55 ) .£IGD(CA ) .VD(55-24) .ZI,V(55.2A ) 
COMPLEX** 16 UN I TYC (55.55 ) • RNULLC C 5 5 , 55 ) . WV( 55 ) . WV1C ( 55 ) , 

1 RES ( A5 « 2A ) ,EGLOW(2A).XGLOW(55,2A) ,Z2 

REAL-A SWV (110). VL8 ( 1 1 0 ) . VU8 ( 1 1 0 ) . G ( 1 ) . R A < 1 1 1 , 1 1 1 ) , 

1 WK3 (?000 ). AGING (55.55 ) . CT3 ING (55 , 18 ) • ER3 • ECS . XRS . XC3 . 

2 TR3.TC3.UR3.UC3 

COMPLEX -8 ESING(ZA) .TSLING(55*2A).XSLING(55»2A ) . XS ING ( 55 . 55 ) 
COMPLEX-8 EING(S5) ,U13T(55 .55 ) 

INTEGER N1.M1 . IE_E* IWK(IOOO). I C ( 1 1 0 ) , I DG ( 1 ) * I Y . I RANK , I ROW ( 55 • 2A ) 
INTEGER DF(lll), I STATE ( 5 5 ) , K3TATE ( 55 ) . IROW3 ,KFA3T , I AR8 ( 55 ) . IUCT1 
C 

C READ FILE 01 (ERSPACE DATA) 

C 

READ ( 1 • 2 ) IRONS. KF AST , IR ANK8 » IRANKC 
RE AD (1»3)(E(I). 1-1*55) 

READ( 1*5)((X(I.J).J=1.55).I=I.55) 

READ (1*4) ( ISTATE( I ) . 1=1 , IRONS ) 

READ ( l • A ) ( KSTATc ( I ) . 1=1 .KFAST) 

READ ( 1 . 3 ) ( ESLOW ( I) . I = 1 . IRC WS ) 

READC 1 • 3 ) ( (XSLOW( I . J ) . J*1 * IRCWS) , 1*1 .55) 

READC 1,3 )( (A( I.J) . Jsl ,55) . 1=1 ,55) 

READ ( 1 * 2 ) I U8 1 

READtlf 5)t(UlTC(I.J).J*l ,53 ).I»IpIU8I) 

READ( 1 • 3 ) ( ( CT( I » J ) . Js 1 , 18 ) • I = 1 * 55 ) 

2 FORMAT (A 12) 



3 FORMAT ( A D2 0 . 1 3 ) 

A FORMAT ( A 0 1 2 ) 

5 FORMAT ( 6E 1 2 . 5 ) 

C 

C INITIALIZE CONSTANTS- 



C 

CALL FRTCMG( ’CLRSCRN *) 

N 1 = 55 

T3TEP = 1.25D-02 

DO 6 I = 1.N1 

DO 6 J = 1 • N 1 

AS ING( I.J) = SNGL ( A ( I , J ) ) 

UNITY ( I , J ) =• 0 . DO 

6 UN I TYC (I.J) = DCMPLX ( 0 . DO , 0 . DO ) 

DO 10 I = 1.N1 
UNITY (I, I) = 1.D0 
UN I TYC (1*1) = DCMPLX( I .DO ,0:DO) 
DO 10 J * 1. IRONS 
10 V(I,J) = XSLOW(I.J) 
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ICONJG 2 0 



C 

c — display SLOW eigenvalue indices FOP ARBITRARY element 

C SELECTION — 

c 

WRITE! 6. 1 13 

II FCRMATC/5X. 1 ---- INDICES OF SLOW EIGENVALUES /J 

WPZTEC6.12HISTATSCI J.I.l, IROWS) 

10 FORMATC5COX.IO.OX3./J 

C WRITEI6.14) 

C4 FORMAT ( /5 X. ’ »»«• ENTER NO. OF ARBITRARY EIGENVECTOR «««» 1 . /5X . 



C 1 1 ---« FOR ADS. ,/) 

C READ! *.03 IELE 

C WR ITEC 6.133 IELE 

C3 FORMAT !/ 5X. * ENTER ROW NOS. OF THE '.10.’ ARBITRARY , 

C I/5X. ELEMENTS IN 10 FORMAT. ’ 

C READ!-. 4)!IAR3!I 3.1=1 -IELE) 



C =CR RECROS THERE ARE 07 ARB ELEMENTS NOT INCLUD STABS- 

C IELE 2 3b 

IELE = 07 

C DO 13 M a 1.08 

C3 IAR3!m) = M - 8 

C DO U M * 09.34 

C4 I AR8 ! M 3 = M * 9 

C I ARS ! 35 3 = 45 

C IARB! 3b 3 2 47 

DO 13 M = 1.07 
13 IAR3IM3 = MMb 

170 DO 55 I 2 I. IROWS 

01 2 SSLQWCI) 

DO 5b J 2 l.Nl 
DO 5> < -- UNI 

5b AML ! J • < 3 2 DCMPLX ! A ! J . K J . 0 . DO 3 - 21 -UNITYC ! J ,K 3 

IY = IUBI 

44 CALL CMATMLIUITC.AML. IY.NI .NI .RNULLC3 

DO 57 J 2 l.Nl 

57 WV!J J 2 V! J. 13 

59 CALL CMATML(RNULLC.WV.IY.NUUWVIC3 

DO 53 J 2 1 . IY 

58 RES! J. I 3 2 WVlCtJl 

c FIND o-norm cf THE RESIDUAL 

Y = 0 . DO 
DO 7b J 2 I » I Y 

7b Y = Y * DREALIRES! J. I 3 3--0* DIMAG f RES ! J . I 3 3 - -0 
R08J 2 DSCRT ! Y 3 
RESR! I 3 = ROBJ 

C IF C-NCRM Or RESIDUAL IS OK — JUMP OUT 

IFIR03J.LE. I .DGO 3 GO TO 55 
C GOTO 55 

C- * 

c 

C IF EIGENVALUE IS COMPLEX, then perform the optimioation 

C ONE TIME FOR BOTH THE EIGENVALUE AND ITS CONJUGATE. 



961 IF ! D IMAG ! Z 1 3 . EQ . 0 .DO 3 GOTO 9b0 

IF! ICONJG. EQ. 1 3 GOTO 97 
ICONJG = I 

C INITIALIZE ARBITRARY ELEMENTS ! FAST ELEMENTS! 

960 DO 100 II = 1 « IELE 
100 IRCWIIUn = IAP3III) 



c 

C SET UP FOR ADS OPTIMIZER CALL IN SINGLE PRECISION FOR RESIDUAL 

C 

- - - * 

9b2 SR03J 2 SNGLfROBJ) 

INFO 2 0 
I3TRAT = 0 
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IOPT a 3 
IONEO » I 
NOV = 2«N1 
NCON = 0 
IGRAO = 0 
IPRINT 9 1000 
NGT * 0 
NR A = 55 
NCCLA = 110 

CALL SPOOTCZ1 ,22.TSTE°) 

WRITEfbr9SS JI .21 -22- I3TAT£( [ ) 

9 63 FORMAT ( /5X. * ENTERING AOS for ESLCW ( 1 . 12 . ’ ) 2 = '.E12.5.IX. 

1 EIC.S.’J t /5x, • ,ZQX. '$ = ’ .E12-5. 1X.E12.5. ’ J‘ ./5X. 

2 '*•*** UNOAMAGED EIGENVECTOR NO. ’.12,/) 

C SET cOUNOS 

C ASK ALLOWED tolerance on oesign eigenvectors 

IF ( IELE . EQ . 00 GO TO 1007 
1008 WRITEC6. 1003 ) 

1003 FORMAT ( /5X. ' "<** ENTER REAL UPPER SOUND OF ARBITRARY ELEMENTS «««" 

l',/5X. IN ‘*F 12 . 5" FORMAT. ENTER "1" FOR NO 30UNO. •*"««') 

REAOC * , 1 020 )UR 

IFCOIMAGCZ1 ) .NE.O.DOJGOTO 1015 
UC = 0. 

GOTO 1016 

1015 WRITECb. 100A ) 

I C04 F0RMATC/5X. 1 ENTER IMAG UPPER 30UN0 OF ARBITRARY ELEMENTS «*** 

l’./5X, ***** IN "F12.5” FORMAT. ENTER "I" FOR NO 30UN0. *»«»') 

REAOC ** . 1020 )UC 

1016 IFCUR.nE. 1 .E+Ob JGOTO 1006 

UR 9 0.1E*21 

1006 IFCUC.NE. 1 .E*06 JGOTO 1005 

UC = 0. 1E*2I 

1005 IFCIELE.EO.NI JGOTO 1013 

1007 WR ITEC6 . 1010 ) 

1010 F0RMATC/5X . * *»** ENTER ALLOWED EIGENVECTOR TOLERANCE IN "FI2.5” FO 

1RMAT FOR THOSE EIGENVECTOR ELEMENTS * . /5X. 

2 ’mm WHICH ARE NOT ARSITRARY. ****•,/) 

WRITEC6. 1011 ) 

1 0 1 1 FORMATC5X. • **** ENTER TOLERANCE ON REAL PART »«*«'./) 

REAOC* 1 . 1020 )EPSR 
1020 FORMAT ( F 1 2 . 5 ) 

IFCOIMAGCZ1) .NE. 0.00 JGOTO 1017 
EPSC 9 o. 

GOTO 1013 

1017 WRITEC6, 1012) 

1012 FORMAT CSX. * **■**■ ENTER TOLERANCE ON IMAG PART * - * * ' , / ) 

REAOC h. 1020 )E 5 SC 

1013 CALL FRTCM3C * CLRSCRN •) 

JJ a 0 

00 7 7 J = 1 . NOV- 1 . 2 
JJ = JJ ♦ 1 
KFINO a 0 

IF C IELE . EO . 0 )GOTO 1026 
1016 DO 1025 K a 1 . IELE 

IFCJJ.NE. IROWCK. I ))GOTO 1025 
KFINO = 1 
VUBCJ) = UR 
VUBCJM) a UC 
VLB C J ) a -UR 
VLB C J* I ) = -UC 
1025 CONTINUE 



C NOTE: PRESENTLY THE ENTIRE VECTOR IS ALLOWEO TO VARY BY AN 

C AMOUNT EOUAL TO EPSR.EPSC. INPUT EPSR =EPSC=0 . OOCURRENTLY 

C IFCKFIND.EO. I )GOTO 1027 



1026 XX a OREALCXSLOWC JJ. I ) ) 

YY = OIMAGCXSLOWCJJ. I ) ) 
VUBCJ) a SNSLCXX) ♦ EPSR 
VUB C J * 1 ) a SNGLCYY) * EPSC 
VLBCJ) = 5NGLCXX) - EPSR 
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VL3(J*1) = SNGL(YY) - e?SC 
1037 xl = OREAL(WVCJJ) ) 

Y1 a OIMAGCWVCJJ ) ) 

SWVCJ) = SNGLCX1) 

SWVCJ* I ) = SNGLCVl ) 

:ccj) = o 

IC C J * l ) = 0 
CF(J) = 0 
Dr c J * 1 ) = o 

77 CONTINUE 

84 CALL ADS C INFO. 1ST A AT . IOP7. I ONE 3- IPPINT, I GRAD . NOV • NCCN , S‘WV . VL8 • 

1 VUE . SRC3 J ♦ G . IDG-NG". I C. OF. R A, NR A. nCOLA.WK 3 . PC 00 . iWK . i 000 ) 

JJ = 0 

30 78 J * t .NOV-1 .3 
JJ * JJ * 1 

iJV(JJ) = CMPLX(SWV(J).SWV(J*1 n 

78 VC JJ. I ) a WVCJJ ) 

:=CINFO.Ea.03GOTO 54 
C DEVALUATE OBJECTIVE FUNCTION 

CALL CM AT ML (RNULLC . WV • I Y . N1 . 1 ,WV1C) 

00 82 J ■ l.IY 
83 RESC J , I ) = WV1CCJ) 

v = 0.00 

DO 33 J s l.IY 

83 Y = V - OPEal ( RESC J . I )]'“*3 ♦ 31 MAG (RES ( J • I ) ) “ * 3 
RCSJ = OSCRT(Y) 

RSCRCI ) = RC3J 
SROSJ a GNGL(PCSJ) 

C CONTINUE WITH ADS OPTIMIZATION (MINIMISING R03J ) 

GOTO 84 

54 WRI7EC6.95 JR03J.I 

95 FORMAT ( / 1 X • ‘ * * # ■* C8JECT I VE FUNCTION VALUE a *.E10.3.’ « »*»',/ 1 X . 

I *’*-•*« ?OR EIGENVECTOR NO. ’.13.* •*•*',/ 

IFCDIMAGCZD.EO.O.DOJGOTO 55 
IFCICONJG.tQ. 1 1GOTD 55 

97 DO 3 8 < = 1 . N1 

ICCNJG * 0 

98 XSLCWCK.IJ = DCONJGCVCX. 1-1 )) 

55 CONTINUE 

C* «*«-•"• * - - - " * « * « **<M-M*****m,»»«*« 

C DISPLAY RESULTS OF <U1T*<A-LAMDHA*I»«DESIRED 3ASE EIGENVECTORS— 



CALL FRTCMSCCLRSCPN ’ ) 

-JRITEC6.65 ) 

s5 FCRMATC//5X. ’ *<*«" THE FOLLOWING VECTOR DISPLAYS Th£ NEARNESS OF - 
1*»«’./5X. •««•<« EACH SLOW EIGENVECTOR TO THE ALLOWABLE RIGHT 
3»*»* ./5X. hand SLOW EIGENSPACE FOR The Damaged F18 MODEL 

I--«* . / 3 

writeuuomresrc : ). 1 * 1 . irons j 

60 P CRMAT (3X. D30 . 1 3 ) 

WRITEC6. 150 ) 

150 FCRMATC/5X. ’ - ENTER "l" IF RESIDUAL IS UNSaT TO RENTER ADS 

1 ’ • /5X » •<■•*«» ELSE EN'ER "0". « 

3* ./) 

REA0C.155 3 ICPT 
155 FORmaTCII) 

CALL FRTCMSC ’CLRSCRN ’) 

IFCIOPT.EO.O )GOTO UO 
DO 165 J = l . I ROWS 
DO 165 I = 1.55 
165 XSLOWCI .J) = VC I . J1 
GOTO 170 

160 DO 93 < a 1.1 ROWS 

DO 93 J = 1.55 
K< = ISTATECK) 
a 3 XCJ.KO a VCJ.K) 

C 

c rlND LEFT HAND EIGENVECTORS 

C 
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DO 175 I = 1.55 

DO 175 J = 1 .55 

175 XS(I.J) = X ( I . J ) 

CALL LEOT1CCXS.55 .55.UNITVC.55.55 .O.WA. IER ) 
DO 180 I s 1 .55 

DO 180 J = 1.55 

180 TCJ.I) = UNI7YCU.J) 



C REINIT UNITVC 

DO 181 I - l.Nl 
DO 181 J * l.Nl 

181 UNITYC(I.J) * DCNPLXC UN ITV( I ♦ J ) . 0 . DO J 
C 

C BUILD SLOW LEFT HAND EIGENVECTORS* 



C 

DO 185 J 8 1 . IRONS 
DO 185 I = 1.55 
KK * ISTATECJ) 

185 TSLOW ( I » J ) = T ( I , KK ) 

C 

c WRITE FILE 08 for USE BY ELSPACE IN SINGLE PRECISION-. 

C 

WRITE (6 . 198 ) 

198 FORMATC/5X. ' WRITING ELSPACE DATA FILE 08 

DO 190 I = 1.55 
ER = OREal ( E C I ] ) 

EC s DIMAG (EC I 1 ) 

ERS 3 SNGL(ER) 

ECS 3 SNGLCEC) 

EINGCIJ 3 CMPLX(ERS.ECS) 

DO 190 J s 1.55 
XR 3 DREALCXd.jn 
XC = DIMAG(Xd.J)) 

XRS * SNGL(XR) 

XCS s SNGL(XC) 

XSING(I.J) * CMP LX (XRS . XCS ) 

190 ASING(J.K) 3 SNGL C A ( J . K ) ) 

DO 195 J 3 1,55 
DO 195 K 3 1 , 18 

195 CTSINGCJ.K) 3 SNGL (CT ( J . K J ) 

DO 196 I s 1, IROWS 
ER 3 DREAL(E$LOW( I ] ) 

EC = DIMAG(ESLOWCI ) ] 

ERS = SNGL (ER ) 

ECS * SNGL (EC ) 

ESING(I) = CMPLX (ERS .ECS ) 

DO 196 J 3 1,55 

TR 3 DREALC TSLOW ( J. I ) ) 

TC 3 DlMAG(TSLOW( J, I ) ) 

TRS = SNGL(TR) 

TCS 3 SNGL (TO 

XR 3 DREAL(XSLOW(J. I ) ) 

XC * DI MAG ( XSLOW ( J . I ) ) 

XRS * SNGL ( XR ] 

XCS = SNGL ( XC ) 

XSLINGtJ.IJ 3 CMPLX (XRS. XCS) 

196 TSLINGC J . I ) = CMPLX (TRS. TCS) 

DO 197 I 3 I.IUB1 

DO 197 J s 1 .55 

UR = DREALC U1TC( I . J ) ) 

UC s DIMAG(U1TC( I .J ) ) 

URS s SNGL (UR) 

UCS = SNGL ( UC ) 

197 UIBT(I.J) 3 CMPLXCURS.UCS) 

WRITEC8.OIR0WS. IUB1 
WRITEC8.4 )( ISTATEC I ) . I = 1 , IROWS) 

WRITE ( 8 .5 )(ESING( I ). I »1. 1 ROWS) 

WRrTE(8.5)((ASlNG( I .J).J=1.55). 1=1 .55) 

WRITE ( 8 . 5 )( (TSLINGC I .J) . J«1 . I ROWS ) . I 3 1 . 55 ) 

WR I TE ( 8 . 5 ) C ( XSL I NG ( I . J ) . J = 1 , I ROWS ) . I » 1 . 55 ) 
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WRITE (8 « 5 ) ( (CTSING( I < J ) < J* 1 .18 3.1*1.55 ) 
WRITE(8.5HEIN6( I 3 . 1*1 .55 3 
KRITE(8.5H(XSINGCI .j).jsl.55). 1*1.55) 
WRITEC3.5) { (U13T(I . J 3 . J* 1 .55 3 . 1 *1 . I US l 3 

66 STOP 

END 



C 

c 

c 



c 

Cl 



10 

CO 

30 



C' 

c 

c 

c 

c 

c 

c 

Cl 



SUBROUTINE CMATM|_ (COMPLEX MATRIX MULTIPLICATION 3 

COMPUTES : vv = aa - 33 
IA * 3 OF ROWS IN A A 

Lw * a CF RONS IN E3 and * OF COLUMNS IN aa 
13 * a OF COLUMNS In 33 



SUBROUTINE CMA'ML(AA.3S. IA.LL. IS.YV) 

COMPLEX- 16 aa(5 5 .55 3 .33(55 .55 3 .YY(55 .55 3 
INTEGER IA.LL.I3 
DO 30 * 1 . IA 

DO 20 J « 1.18 

YV(I.J) S (0. DO. 0.30) 

DO 10 INDEX = i.LL 

VY(I.J) s YY(I.J) * AA(I. INDEX) * 38 ( INDEX . J ) 
CONTINUE 

continue 

continue 

RETURN 

END 



SUBROUTINE SROOT: CONVERTS E-PLANE ROOTS TO 

s- plane roots 

CDR V.F. GAVITO JULY 1 Q 86 



SUBROUTINE SROOT(Z.S.T) 
IMPLICIT REAL -8 ( A-H . P-Z 3 
COMPLEX- 16 Z.s 
RS * DIMAG (3 j 
RC = DREAL(Z) 

3 = (DATAN2(RS.RC) 3/T 
R2 * CDaES(Z) 

A = -DLOGCR: 3/T 
S = CCMPLXI-A . 8 3 
RETURN 
END 
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APPENDIX F 
ELSPACE 



C* 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



ELSPACE: TESTS IF RT/LT SLOW LEFT EIGENVECTORS 

RESULTING FROM ERSPACE OPTIMIZATION ARE MEMBERS OF THE 
DAMAGED NULL SPACES. 



NOTE: COMPUTATIONS ARE IN SINGLE PRECISION 



CDR V.F. GAV1TO 
NOVEMBER 1«B© 



FILE 01 = ELSPACE DATA 
( READ ) 

FILE IPAS3 = AD3DAT DATA OR XSLOW DATA 
(WRITE CR READ ) (WRITE) 

FILE 04 = LRES OATA 

(WRITE UNDAMAGED) (REAL DAMAGED) 

FILE 07 = NULL DATA 
(READ) 

FILE 08 = OPTEIG OATA 
(WRITE) 

FILE 09 = SEGEIGl DATA (SEGMENT 1 DESIGN DATA) 

FILE 10 = 3EGE1G2 OATA (SEGMENT 2 DESIGN OATA) 

FILE II = SEGEIGS DATA (SEGMENT Z DESIGN DATA) 

(WRITE) 

NORMS 

RESRS< )/RESLS( ) = SUM OF VECTOR COMPCNENTS (COMPLEX) 
RESR2 ( )/RESL2( ) = 2-NCRMS (REAL) 

RESRIO/RESLK ) = 1-NORMS (REAL) 

RE1NFR ( )/REIN'FL( ) * INFINITY NORM (REAL) 

1NFNRR ( ) / I NrNRL ( ) = ROW NUMBER CF INFINITY NORM 
ELUND( )/ELDAM( ) = LEFT NULL RESIDUAL VECTORS 
DTNORMO = 2-NCRM OF DIFFERENCE BETWEEN LEFT EVECTORS 



IMPLICIT REAL-A(A-H.O-Z) 

REAL-4 LTEST 

DIMENSION A (55 ,55 ) .CT ( 55 . 55 ) , WA ( 55 ) . UN 1 TY(55 . 55 ) . DTNORM ( 24 ) 
DIMENSION SCT ( 55 ) . WKCT ( 1 1 0 ) . UCTT ( 55 . 55 ) . RESR2 ( 24 ) , RESL2 ( 24 ) 
DIMENSION G(1).OF(111).RA(111»222).WK(10000)»XX(111),VU8(I11) 
DIMENSION VLB ( 1 1 1 ) -RESR1 ( 24 ) ,RESL 1 ( 24 ) , RE1NFR ( 24 ) , RE 1NFL ( 24 ) 
COMPLEX “8 TGLOW(55 • 24 ) . AML ( 55 - 55 ) • UN 1TYC ( 55 • 55 ) . UCT 1 TC ( 55 « 55 ) 
COMPLEX-8 XSLOW (55 -24) -UB1TC(55 •55)-RcSk(24) , RESL (24 ) 

COMPLEX-8 UCA( 55 . 55 ) . LNULL (24. 57-55). L08J(55). ESLOW ( 24 ) 

COMPLEX-8 U8A ( 55 • 55 ) . RNULL ( 24 , 45 . 55 ) .R08J(55) . E ( 55 ) . X ( 55 . 55 ) 
COMPLEX-8 ATML(55.55 ).WVL(55) .NML(55 -55 ) . T ( 55 . 5 5 ) . XS( 55 . 5 5 ) 
CCMPLEX-8 WVR (55 ) .NMR(55-55 ) . RR . RL . Z 1 . Z2 . ZS . 24 . Z5 .ROT.SCHG 
COMPLEX -8 RUNULL (1.45-55). LUNULL ( I . Z 7 . 55 ) . XT ( 55 . 55 ) . XSAVE( 55 . 55 ) 
COMPLEX-8 RESRR(24) .RESLL(24) . 08JC . Z5 A . RESRS ( 24 ) . RESLS ( 24 ) 
CCMPLEX-8 ELUND ( S 7 » 24 ) , EL DAM (27-24) .01FF(24) 

COMPLEX-8 TDE3(55.24),DT(55) 

COMPLEX- 16 EO(55) ,XD(55 .55) -EDR (55 ) ,XDR(55 .55 ) 

REAL-8 DR- DC 

INTEGER I ROWS • 1RANCT • 1 U8 I • 1DG( 1 ) . 1C ( 1 ) . 1WK( 1200 ) • 10(8 ) . 13TATE(55 ) 
INTEGER 1NULL • 1ARB( 55 ) , 1CHG . 1NP . 1 ADS . 13EG . 1EEN . 1 1MAG . IRECHK 
INTEGER INFNRR ( 24 ) . 1FFNRL ( 24 ) - 1UND 

INI T COMPLEX MATRICES 

DO bOfl I « 1 .55 
DO 600 J = 1 .55 
UCTlTC(l.J) = CMPLX ( 0 . . 0 . ) 

UB1TC( I • J) = CMPLX ( 0 . .0. ) 



202 



UBACI.J) = CMPLX ( 0 . » 0 . 1 
'JCA(I.J) = CMPLXCO. .0. 1 
bOO CONTINUE 
C 

c read file oi :els?ace oatai 



PEA0C1.21ISCWS.IU31 

SEA0C1 . A ) C I37A~E C I Mai, ISCWS) 

SEAOC 1 .3KESLCWU 1.1 = 1, IRCWSl 
SEAOC 1 .3KCACI . Jl . J = 1 .55 1.1 = 1.55 1 
SEAOC 1 .3 HCTSLOWCI . JJ. J=1 . ISCWS) . 1 = 1 - 55 1 
SEAOC 1 . 3 1 C CXSLCWC I . J 1 . J = 1 . ISCWS 1 . 1 = 1.55) 
SEAOC 1 . 3 1 C CCT CI.J).J=1.1S).I = 1,55) 

SEAOC 1 .31CECI 1 . 1 = 1 .55) 
SEA0C1.3)CCXCI.J).J=1.55).I=1.55) 

SEADC1 .3)C CUS1TCCI . J).J = 1 .5 5 1. 1 = 1. IUS1 1 
FCSMATCSI2 1 



3 rQRMA 7 C bEl 2 - 5 1 

A FCSMATCA0I2) 

S F0SMATCI1) 

c 

C Z M IT CONSTANTS- 



n 1 = 55 

TSTE? = 0.0125 
[NFO = 0 

:~ss = o 
iaos = o 
IOGCl 1 = 0 
GC 1 1 = 0. 

ICC1 ) = 0 
I NULL = 0 
ICWG = 0 
1 1 MAG = 0 
INULLC = 0 
INP s 0 
ISECHK = 0 

: uno = a 

WEIGHT = 0.01 
SLU = 0. 

SLO = 0. 

SLPEAL = 0. 

ISanCT = 13 
DC 5 I = 1.55 
IAS3CI) = 0 

SOB J C I 1 = CMPLXCO. .0.) 

LOSJC I 1 = CMPLXCO. . 0. ) 

30 5 J = 1.55 
XSAVEC I . J 1 = XCI.J) 

XSCI.J) = XCI.J) 

UNITVCI.J) = 0. 

UCTTCI.J) = 0. 

UNITYCCI.J) = CMPLXCO. 0. 0. 0 ) 

5 CONTINUE 

CO b I = 1.55 
EC Cl ) = ECU 
UNITVCI.il = 1.0 
UHITVCCI.I1 * CMPLX Cl .0.0.0) 

6 CONTINUE 



00 7 I = 


1 . 2 A 




PESP5CI ) 


= CMPLXCO. 


.0 


PEOLSC I 1 


= CMPLXCO. 


.0 


PESPP.CI 1 


= CMPLXCO. 


.0 


PEGLLC I 1 


= CMPLXCO. 


.0 



SESP2CI) = 0. 
PEGL2CI) = 0. 
PEGS 1 C I ) = 0. 
PESL1CI) = 0. 
SEINFSCI) = 0. 
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REINFLCI) = 0. 

RESRC I J » CMPLXCO. . 0. ) 

RESLCI ) = CMPLXCO. .0. ) 

DO 7 J = I .37 

ELUNDC J. I j * CMPLXCO. . 0. ) 

ELCAMCJ. I ) = CMPLXCO. .0. ) 

7 CONTINUE 

C 

C SAVE DESIRED SLOW LEFT EIGENVECTORS FOR OPTIMIZATION 

C 

DO 660 I = 1.55 
DO 660 J s I . IRONS 
660 TDESCI.J) = TSLOW(I.J) 

C 

C FIND DESIRED LEFT EIGENVECTOR MATRIX T 

C 

6D0 CALL LEOT1CCXS.55.55.UNITVC.55.55.0.WA, IER ) 

DO 9 I a 1 .55 
DO * J = 1.55 

9 TCJ.Il 8 UNITYCCI.J) 

C RE IN IT COMPLEX IDENTITY 8 XS 

DO 11 I = 1-55 
DO II J = 1.55 
XSC .J) * CMPLXCO. .0. ) 

U a UN I TY ( I , J ) 

11 UNITYCCI.J) a CMPLXCU.0.0) 

IFCIRECHK.EQ.OIGOTO 17 
DO $60 I a 1 .55 
DO 660 J = I . IRONS 
KK = ISTATECJ) 

660 TSLOWCI . J)sT(I.KK) 

GOTO D08 
C 

C FIND SVD OF C**T (DAMAGED) 

C 



17 


•i 

o 

O 

a 


10 


UCTTCI . I ) 



CALL LSVDFCCT.55.55.I8.UCTT.55.55.SCT.WKCT. IER ) 

DO 15 I = 1.18 

IFCSCTCI ) . GT . 0 . 0 ) GOTO 15 

IRANCT = I-i 

GOTO DO 

15 CONTINUE 

DO CALL FRTCMSC 'CLRSCRN ’) 

WR I TE ( 6 » 1 6 ) IRANCT 

16 FORMAT (/5X,’"** - RANKCC-*T) = '.ID,* 

DO D5 I = 1.55 

DO D5 J = IRANCT * 1.55 

UCX s UCTTCJ.i) 

D5 UCTITCCJ- IRANCT. I ) r CMPLX ( UCX . 0 . 0 ) 

C ANALYSIS INFO 

WR ITEC 6.18) 



18 FORMATC/5X. ' hhhm ENTER ” 1" IF PASS IS FOR UNDAM ANALYSIS 

* / 5 X.'^hh ENTER "O" ELSE. **-«.«•./) 



READC ".8 1 KIND 
IFCIUND.EQ. 1 )GOTO 19 

READ C 6. 3) ( (ELUNDC I .J).J=I .37 ). 1=1. IROWS) 
C 

c p ASS OUE 

C 

19 WR I TEC 6.61) 



61 FORMAT ( / 5X . ' * * * m ENTER ”1" IF FIRST PASS THRU ELSPACE >“***'. /5X. 

1 r m *4 w h ENTER PASS NUMBER OTHERWISE. **-*’./) 



READ! ** ,8 ) IPASS 

IFC IPASS.EQ. 1 )GOTO 62 

REaD ( IPASS. D )IROWS. IPASSA 

READC IPASS. 6 )( ISTATECI ) . 1=1 . IRCWS) 

PEADC IPASS. 3 )( CXC I. J) . J8i .55) , 1*1 .55) 

READC IPASS. 3 )( CTC I ,J) . J»1 .55 ). 1*1 .55 ) 
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REAOC I 3 aSS . 3 3 C CXSLOWC I . JJ . J*1 . I ROWS 3 • 1 = 1.55) 
READC IPASS. 3 ) C C TSLCW ( I . J ) . J=1 . I ROWS) . 1 = 1 .55) 
READC I? ASS. 3 MESLCUC I ) . 1 = 1 . I ROWS) 



C REINIT £ AFTER £l_$PACE EXECUTION 

C 

6z :o :7 i = 1. 1 . rows 

ii = istatec : j 

EDI II) = ESLCWCI) 

27 ECU) = ESLOWCI ) 

c 

C REINIT X3 AF-FR ELSPACE EXECUTION- 

C 

00 28 I = I .55 

00 03 J = I .55 

08 XOCI.J) = X(I.J) 

C 

C FIND NULL SPACE OPERATORS 

C 

06 00 30 I = I. IRONS 

01 = ESLOWCI ) 

I F C I CHG . EO . 0 ) GOTO 36 • 

Zi = E(ICHG) 

36 00 35 J = 1.55 



00 35 < = 1.55 
AR = Afj.K) 

ATR = a(K.J) 

AML(J.K) = CMPLX(AR.O.O) - Zl^UNITVCCJ.K) 

35 at*l;j.k; = cnplxcatr . o .o ) - zi - uni-ycc j.o 

CALL CMATMLCUcITC.ANL.IU5I .55.55.U2A) 

CALL CMATML CUCTITC. ATML , 55- IRANCT .55.55. UCA ) 

00 36 JJ = I-IUBI 

DO 36 <K = 1.55 

IFCICMG.EQ.OJGOTO 37 

SNULLC INULLC. JJ.<K) = U5ACJJ.KK) 

GOTO 36 

37 RNULLCI . JJ.KK) = U3ACJJ.KK) 

36 CONTINUE 

DO 60 JJ = 1 .55- IRANCT 

DO 60 <K = 1.55 

IFCICHG.EO.OJGOTO 39 
LNULLC INULLC. JJ.KK) = UCACJJ.KK) 

GOTO 60 

3° LNULLC I .JJ.KK) * UCACJJ.KK) 

60 CONTINUE 

IFCICHG.EQ.O )GCTO 30 
Z1C = A I MAG C ZI ) 

CZCHK = A33CIIC) 

IFCCZCHK.EQ.O. )GOTO DOS 
IFCINP.EO. I JGOTO DOS 
ZI = CONJGCZI 3 
INP * I 

INULLC = INULLC * I 
I CHG = I CHG ♦ 1 
ESLOWC INULLC) = ZI 
ECICHG) = ZI 
E0CICH3) = ZI 
GOTO 36 

30 CONTINUE 

c 

C FI NO LEFT/RIGHT RESIDUALS 

C 

Z08 COS JR = 0.0 

C08JL =0.0 
00 50 J = 1. 1 ROWS 
00 55 I = 1.55 
HVRCI) = XSLCWCI.J) 

55 WVLCI) = TSLCWCI.J) 

C IFC ITER. NE.O JGOTO 66 
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C3 IFCJ.LE.6 )GOTO 65 

C IF ( J . £0 . 1 0 )G0T0 65 

C IFCJ.E0.il >G07C 65 

C IF( J .E3 . 1 ! )GQT0 65 

C IFCJ.EQ.2i )GOTO 65 

C GOTO 6 o 

C65 CAi_L SR00TCE5L0WCJ ) .ROT. . 0125 ) 

C WRITEC6.58 JJ.RCT 

C58 FQRMaTC IX. ' SLOW LEFT EIGENVECTOR NO . ♦ . I C . /5X . 

C - 'EIGENVALUE * * . El 2 . 5 . IX .El 0 . 5 . ' J'./5X. 

C * ' DESIRED VECTOR DESIGN VECTOR’./] 

C WRITEC6. 56 ) CTDESC I . J ) .TSLOWt I . J ) . 1*1 .3) 

C WR I TEC 6. 67) 

C67 FORMAT C ' t»**tt****w»i****t**'«*t»t*»»*»##****t*t*** 

C «RI T cC6.56 )CTDESCI.J).TSL0WCI .J). 1=9.16) 

C WRITEC6.67) 

C WRI7EC 6 . 56 ) (TOES ( I * J ) . T3L0WC I, J). 1 = 17.55) 

C5 6 FORMAT C IX. El 2. 5. IX. El 2. 5. * J * . 5X . £12 .5 . 1 X .El 2 . 5 . * J * ) 

66 DO 57 JJ = 1 . IU81 

DO 57 KK = 1.55 

5 7 NMRCJJ.KK) =• RNULLC J. JJ.KK) 

DO 60 JJ a 1 . N 1- I RANCT 
DO 60 KK > l.Ni 

60 NMLC JJ.KK) = LNULL C J , J J . KK ) 

CALL CMATMLCNMR . WVR . I US 1.55.1 .RC8J ) 

CALL CMATMLCNML.WVL.N1-IRANCT.N1. 1 .LOBJ ) 

RTEST = 0. 

DO 61 JJ = 1 . IU31 

RESR2CJ) = RESR2CJ) * ROBJ C JJ ) -CONJGC ROSJ ( J J ) ) 
RESR1CJJ = RESR1CJ) * CA8SCROBJCJJ J ) 

RE3RCJ) a RESRCJ) ♦ ROSJ(JJ)"*2 
RINFR a CA8SCR08JC JJ ) ) 

IF C RTEST . GT .R INFR )GOTO 61 
REINFRCJ) a RINFR 
RTEST a RINFR 

61 CONTINUE 

RESR2CJ-) * SORTCRE3R2 ( J ) ) 

RR = RESRCJ) 

RESRRCJ) = CSQRT(RR) 

C C08JR = COB JR - CABS ( RR ) 

C CCSJR a COBJR * CABSCRESRRC J) ) 

COBJR = CCSJR ♦ RESR2CJ) 

LTEST a 0. 

DO 65 JJ = l.Nl-IRANCT 
RESLSCJ) = RESLSCJ) • LOBJ ( JJ ) 

RESL2CJ) = RESL2CJ) ♦ L08J ( JJ ) -CCNJGCLC8J C JJ ) ) 
RESL1CJ) a RESL1CJ) * CABS CL05J C J J ) ) 

RE3LCJ) = RE3LCJ) ♦ L03JCJJ)"-2 
ELDAM(JJ.J) = LOBJ ( J J ) 

C SAVE UNDAMAGED LFT RESIDUAL VECTORS 

IF C 1UND.EO.O )GOTO 63 
ELUNDCJJ.J) a LOSJCJJ) 

63 R I NFL = CA8SCLOBJC JJ ) ) 

IFCLTEST.GT.RINFLJGOTO 65 
REINFLCJ) = R I NFL 
LTEST = R I NFL 



65 CONTINUE 

RESL2CJ) a SORT (RESL2 C J ) ) 

RL = RESLCJ) 

RESLLCJ) * CSORTCRL) 

C C08JL = C03JL ♦ CABS ( RL ) 

C C03JL = C08JL ♦ CABSCRESLLC J ) ) 

COBJL = C08JL ♦ RESL2CJ) 

50 CONTINUE 

C WRITE UNDAMAGED LEFT RESIDUAL VECTOR- 

IFC IUND.EQ.0 )GCTO 68 

WR I TE ( 6 . 3 ) C C EL UND ( I . J ) . J = 1 . 3 7 ) . I = 1 . I R OWG ) 

68 IFC IADS.EQ.5 )GOTO 93 

67 IFC ITER .GT. 1 )GOTO 600 



c 

c DISPLAY RIGHT AND LEFT RESIDUALS 

6 o WRITEC6. 70)CC8JR.COSJL 

70 FORMAT C/5X. * **•* DAM-RT SLOW SUBSRACE RESIDUAL a 1 .EI2.5.' ^ *•*•*• • . 



: /sx. 1 **<* dam-lt slow susspace residual * ■ .eu.s. 1 «•«* 

2 i 



c DI3RLAY INDIVIDUAL RESIDUALS 

«R I “E C 6 • 8 0 ) 

80 FORMAT ( / IX . ’ UND EVECT SLOW STATE RGT-DAM RESIDUALS LFT 



I- DAM RESIDUALS 1 ./) 

WRITE (6 .81 HIS7ATEI I ) . I . REGR2 C I ) . REINFR ( I ) .RESLO ( I ) . RE I NFL C I J 
<!=L . IROWS) 



81 FORMAT C AX, I2.ICX.I2.eX.E12.5.IX,EI2.5,2X.E12.5.IX,E12.5) 

C 

C SET UP ARSITRARY ELEMENTS FOR aQS SIMILAR TO ERSPACE 

0 -OR RECR25 DO NOT LET RT STAB OR LT STaS BE ARBITRARY 

III = 1 

DO 71 I = 9.43 
C Ir(I.LE.3)GQT0 71 

I aR 8(111 ) = I 
III * III * l 
71 CONTINUE 

C COMMENTED OUT FOR RECRD5 

C DO 72 I a 09.34 

C I AR 3 (III) * : * 9 

C III a III * I 

C2 CONTINUE 

C FOR RECR05 CASE THERE ARE 10 LESS ARS ELEMENTS THAN FOR 

C SYMMETRIC CASES. COMMENT THE FOLLOWING TWO OUT FOR SYMM. 

C CASES. 

C I ARB ( 2 7 ) a 45 

C I AR 3 ( 28 ) = A 7 

C USE THE FOLLOWING TWO FOR SYMMETRIC CASES 

IAR3C36) = 45 
I ARB ( 3 7 ) a 4 7 
C 

c ;_EFT NULL GRACE OPTIMIZATION que 

c 

wRI7E(6.82 ) 

82 FCRMATC/SX, 1 -«•** ENTER “l” FOR MIN. OF LFT-DAM RESIDUALS ONLY 



- 1 ./5X. 


• « + + * 


US 


INC ARB VECTOR ELEMENTS AS VARIABLES* 


«* ./5X. 




ENTER ”2 


11 FCR LFT NULL SPACE INTRSEC. ANALY . 


»• ,/5X. 





ENTER M 3' 


M TO SHIFT A DESIRED SLOW EIGENVALUE 


./5X. 




ENTER ”4 


11 TO EXIT ELSPACE AND WRITE OPTEIG 


-* ./5X. 


• # * it * 


ENTER "5 


" FOR MIN. OF LFT-DAM RESIDUALS ONLY 


-• ./SX. 


• + * * * 




USING EICENVALUE AS variable. 


*»• ./5X. 




ENTER ”6 


" TO WRITE SEGEIG . 


*• ./SX. 


1 


ENTER "7 


" TO EXIT ELSRACE. 


./5X. 


• H * * tf 


ENTER "O' 


" 70 EXIT ELSRACE AND WRITE X3L0W. 


* 1 ./ ) 








READ ( 


- .8 ) I ADS 







Ir( IADS.E0.7 JGCTO 9000 
IF C IADS.E0.6 )GCTO 530 
IF( IA0S.E0.A JGOTO 42A 
IF( IADS.EO. 1 1COTO 83 
IF ( IADS.EQ.5 JCOTO 83 
IFC IADS. EQ. 2) CO TO 84 
IF ( IADS.EO. 0)G0T0 521 
CALL FRTCMSC 'CLRSCRN * ) 

c RE INI T RESIDUALS 

DO 8 7 II a 1, IROWS 
REINFR (II) = 0. 

RE I NFL (II) = 0. 

RESRKII ) a 0. 

RESLHII ) = 0. 

RESR2 (III a 0. 

RESL2( II ) = 0. 

RESLSC II ) * CMRLX ( 0 . .0. ) 
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RESRSCII ) * CMPLXCO. .0. J 
PESRCII) = CMPLXCO. .0. ) 

87 RESLC I ! ) = CMPLXC 0 . • 0 . ) 

C QUERY USER FOR EIGENVALUE SHIFT INFO 

77 WRITE (6. 73) 

73 F0RMATC/5X. ’ ******* ENTER UNO VECTOR NO. vou DESIRE TO SHIFT '**»*••*'. /5 

IX .•*•*""« ENTER "0” T 0 QUIT. '*«•«"•./) 

REAOC * . 2 ) ICHG 

CALL SROOT(E( ICHG) .SCHG. . 0 ICS ) 

78 WRITE (6. 74 ) ICHG. SCHG 

74 FCRMATC/5X. ’ ’*«'«’« ENTER N£W S-?LAN£ VALUE OF VECTOR '.12.* 

* SX.' CURRENT VALUE = ’ • £ 1 2 . 5 . IX . £ 1 2 . 5 . / . 

h 5X . * REAL e AR T ?' ,/) 

REAOC*. 75)RZ 
WR I TE ( 6 • 7 9 ) 

79 FORMAT(/5X,’ IMAG PART ?*./) 

75 FORMAT ( F 12 . 5 ) 

REAO ( * • 75 )CZ 

CALL FRTCMSt 'CLRSCRN ' ) 

C4 * CMPLXCRZ.CZ) 

E(ICHG) s CEXPCZ4* .0125) 

EO(ICHG) = EC ICHG) 

INP = 0 

DO 7 b II > I . I ROWS 

IF ( ISTATE (II). N£ . ICHG ’GOTO 76 

ESLCWC in = EC ICHG) 

INULLC = II 
GOTO 26 

76 CONTINUE 

INULLC = II 
GOTO 26 
C 

C-- OPTIMIZATION 

c 

83 WRITEC6.I05) 

105 FORMAT ( /5X. ' ***•*« ENTER SLOW INOEX OF THE RESIOUAL FOR AOS *•*«•*’,/) 
REAOC**. 85 HOC I ) 

85 FORMAT C 12 ) 

CALL FRTCMSC 'CLRSCRN 1 ) 

GOTO 241 

84 CALL FRTCMSC 'CLRSCRN ’) 

IF ( [NULL.NE.O )GOTO 86 
REAOC 7.2) INULL 

READ(7.3)C CRUNULLC1 .JJ.KK) .KK=1.55).JJ=I .45) 

REAOC7.3JC (LUNULLC 1 . JJ.KK) .KK= 1.55). JJ= 1.37) 

86 IOC I) * INULL 
C 

C IN I T FOR ADS 



241 


IR = 10(1) 




RL = RESLCIR) 




RR a RESRCIR) 




ABR = CABS ( RR ) 




ABL a CAB3CRL) 


C 


1FCA8R.GT.A8DGOTO ill 


C 


08J = A8L 


c 


GOTO 112 


ill 


OBJ = A8L 


112 


IFC INFO, EQ. 1 )GOTO 121 


113 


IN a 1 



ISTRAT S o 
I OPT a 3 
IONED = 2 

IFC IAOS.EQ. I )GOTO 90 
NOV = 2 
GOTO 91 

90 NOV a In-2*55 

91 NCON a 0 

NOT a 0 
IGRAO a 0 
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NRA a 111 
NCCLA = 222 
IPR1NT = 0 
C 

C SET 30UN0S 

C 

ZZ = ESLOW(IR) 

IFCAOS.cQ.I 3GOTO 114 
CALL SROCT<Z3.Z2.TSTE?) 

XX(1 3 = »EALCI3 3 
XX c ) = AIMAG1Z3) 

WR JTE { 6 . 95 3 1 R . ESLOW { IR 3 . Z2 • I STATE (IR) 

05 FORMAT ( / 5 X » * “****•* AOS IS BEING ENTERED FOR" ESLOW ( ' . 12 * ' 3 , /5X , 



1 •>•«««♦ Z = ' ,£12.5, 1X.E12.5 . ' J »*«»• ,/5X, 

2 S = • .£12.5. IX. £12. 5. ’ J ««**', /5X, 

3 •«--<« ENTER Z-PLANE BO UN OS FOR THIS EIGEN- •»«•»', /5X. 

4 VALUE in F20.13 format. ‘•-‘•-'./5X. 

5 UNOamaGED EIGENVECTOR NO. * .12, '•*'«•«•./) 



WRITEC6.720) 

720 FORMAT ( /5X. * ENTER VALUE OF ALPHA FOR 08J **•*•«'./) 

REAOI-. 117 3 ALPHA 
GOTO ®2 

114 CALL SROOT ( 23 • Z2 » TSTEP 3 

WRITECo. 110 3 1R.cSLCW(lR3.Z2USTATE(lR3 
UO c CRMAT</5X. ' ADS IS BEING ENTERED FOR ESLOW ( * . I 2 , * 3 /5X . 



Z = * , El 2 . 5 • IX . E12 . 5 . ’J /5X. 

2 •-*•«< s = ' .£12.5 . 1X.E12.5, ' J «<**«', /5X , 

3 ENTER SO'JNOS ON THIS SLOW LFT EVECTOR /5X . 

4 '-M. IN F20.13 FORMAT. /5X. 

5 UNDAMAGED EIGENVECTOR NO. ',12. 



92 wR I TE ( 6 , 1 15 3 

115 REAL TOLERANCE = *«<"'./) 

READ(-.1173SR 
WR 1 TE ( 5 • 1 I 6 3 

116 FORMAT C /5X. * -*“*«■ 1MAG TOLERANCE = **"*'./) 

RcAOC. 117)81 

117 FORMAT (F20 .13) 

C WRITc(b.lIB) 

C18 FCRMAT(/5X. ' ENTER WEIGHTING FACTOP *««*'./) 

C READ(- . 117 3WE1GHT 

CALL FRTCMSC CLRSCRN ’) 

C 3U1L0 OESIGN VARIABLE VECTCR ANO UPPER/LOWER BOUNO VECTOR 

I F { IADS. £0.1 3G0T0 23° 

VLB (I 3 = XX { 1 3 * SR 
VLB ( 1 3 = XX (1 ) - ER 
VU8C2) = XX { 2 3 * El 
VL3C2) = XX ( 2 3 - a; 

IF(XX(2) .NE.O. 3 GO TO 94 

1 1 mag = l 



94 OF ( 1 3 = 0 . 

DF (2 3 = 0. 

CALL FRTCMSC CLP SCRN *3 

C 

93 25 = RESLCIR) 

C FRE 24 OCT CEJ 

C G3J s CA5S(Z5) 

C 24 OCT NEW OBJ 

C Z5A = CSCRT (Z5 3 

C OBJ = CABS (Z5 3 

C OBJ = RESLI ( IR 3 

03J * RE5L2 ( IR 3 - ALPHA 
C OBJ = REINFL(IR) 

I PR 1 NT s 0 

C 2-NORM OF LEFT RESIOUAL DIFFERENCES- 

C 00 700 II = 1.37 

C700 DIFF(II) = ELOAMCIUR) - ELUN0UI.1P) 

C 03J = 0. 

C CO 710 II - 1,37 

C710 C3J = 03J * OIFFC 1 1 3 -CONJGt OIF- ( II) 3 
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C OBJ s SORT (OBJ ) - ALPHA 

C INFINITY NORM OF LEFT RESIDUAL DIFFERENCES 

C OBJ * 0. 

C DTEST = 0. 

C DO 715 II = 1.37 

C DINF = CABS C D I rr (II) J 

C IFCDTEST.GT.DINr )G0”0 715 

C 03J = DINF 

C DTEST = DINF 

C7IS CONTINUE 

CALL AOS ( INFO. ISTRAT. ICPT. IONEO. I PR IN T . IGR AD . NOV . NCON . XX . VLB . VU3 . 
1 OBJ . G . IDG.NGT. IC.DF.RA.NRA.NCOLA.WK. 10000. I MX. 1200) 

I F 1 1 1 MAG . NE . 1 )GOTO 99 
XX CD) = 0. 

9 9 WRITEC6.97HTER.XXC1 ) .XXC2) .OBJ 

97 FORMAT! IX . ’ ITER NO. '.ID.* XXC1) = ‘.E13.6.' XXC2) = ‘.EI3.6 

< . * OBJ = '.£12.5) 

ITER * ITER * 1 
IChG S ISTATECIR) 

ZA = CMPLXCXXC 1 ) • XX C2 ) ) 

C ECICHG) = CEXPCZA- .0125 ) 

EC ICHG) = ZA 
SSLOWCIR) = ECICHG) 

ED C ICHG) = ECICHG) 

INULLC = IR 
IFCINFO.EQ.O )GOTO 3 B 
IFC ITER.GT.20 )GOTO 98 
IFCOSJ.LT. 1 .E-01 )GOTO 3 S 
INP = 0 

DO °6 I = 1. I ROWS 
RESRSCI ) * CMPLXC0. .0. ) 

RESLSCI ) = CMPLX CO . .0 . ) 

RESR1CI) « 0. 

RE3LICI) = 0. 

RESRZCI) = 0. 

RESL2CI) = 0. 

PEINFRCI ) * 0 . 

REINFLCI) = 0. 

RESR Cl) = CMPLX C 0 . .0 . ) 

96 RESLCI ) = CMPLX C 0 , ,0. ) 

GOTO 26 

98 IADS = 0 

IR * 0 
ICHG = 0 
ITER s 0 
INFO = 0 
I I MAG = 0 
INP = 0 
GOTO o 6 

239 JJ * I 

KK = IOC 1 ) 

DO 120 LL = 1.55 

RX = REALCXSLOWCLL.KK) ) 

CX = IMAGCXSLOWCLL.KK) ) 

TR = REALCTSLOWCLL.KK) ) 

TC = IMAGCTSLOWCLL.KK) ) 

125 XXCJJ) * TR 

XXCJJ*1) = TC 



C CURRENTLY IMAG PART OF THE VECTOR ARE NOT ARB FOR 

C RECR25 CASE 25’; ASYMMETRIC DAMAGE CASECNOT FOR SYMM ) 



C 27 ARBITRARY ELEMENTS FCR RECR2S USE MM * 1.36 FOR SYMMETRIC CASE 
C! !!!!!!!• ! I J !!!!!!! ! ! ’NOTE! !!!! J !!!!!!!!!!!!!!!! 1 1 ! !!!!!!!!!!!!.'!! ! 
DO 126 MM = 1,37 

126 IFCIAR3CMM) .EO.LDGOTO 127 





VUSCJJ) = 


XXCJJ) ♦ ER 




VLB C J J ) * 


XXCJJ) - BR 




GOTO I2B 




27 


VUBCJJ) = XXCJJ) 


* BR 



VL8CJJ) = XXCJJ) - 8R 
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108 IF(TC.NE.O .0 JGOTO 086 
VU8(JJ*1 ) = 0.0 
VLB(JJ*1) = 0.0 
GOTO 085 

086 DO 087 mm a 1.37 

087 IF ( I ARo ( MM ) . EG . LL )GOTO 088 

VUS(JJ*1 ) = XXCJJ-1 ) ♦ SI 

vls( jj*n = xxt jj*n - si 

GOTO 085 

088 VUSCJJM) = XX<JJ*1) * SI 

VL3<JJ*l) a XX( JJM ) - 31 
085 DF(JJ) * 0. 

DF{jj*n = 0. 

C 

C ZEROIZE OUT ELE M ENTS WHICH APE < ♦/- l.D-08 

C AM NOT ZEROIZING OUT FOR RECR05 CADE 

C RTEST = ASS(XXCJJl) 

C CTEST = ASS(XX(JJ*1 ) ) 

C IFCRTEST.EO. 0. JGOTO 100 

C IF ( RTEST. GT. 1 .E- 08 JGOTO 130 

C XX (JJ) a l.E-16 

C VUB(JJ) - l.E-16 

C VLSI JJ ) * -1 .OE-16 

C 1 30 lrCCTEST.EQ.O. JGOTO 065 

C IFCCTEST.GT. 1 .E-C8JGCT0 065 

C XX(JJ*1) = l.E-16 

C VU3 ( JJ ♦ 1 ) = 1. OE-16 

C VLB ( J J * i ) = -1 -OE-16 

065 JJ = JJ * 0 

100 CONTINUE 

101 CALL ADSC INFO. ISTRAT. ICPT. IONEO. IPRINT. 1 GR AO > NOV * NCON . XX . VL8 • VU8 * 

1 OSJ.G. IDG.NGT. lC.CF.RA.NRA.NCOLA.WK. 10000. 1 UK. 1000 ) 

ITER = ITER * 1 

C EVALUATE 08JECTIVE FUNCTION 

JJ = 1 
1CONJG = 0 
KK = 10(1) 

DO 0^5 LL - 1.55 

IF(lMAG(ESLOU(KK) ) .EO. 0.0 JGOTO 06 6 
071 ICONJG = 1 

066 TSLOU(LL.KK) a CMPLXCXXI JJ ) . XX(JJ*1 ) ) 

068 JJ = JJ • 0 

065 CCNTINUE 

OSJ = 0. 



R'J 


REAL = 0. 




RL 


a CMPLXCO. 


.0. ) 


RE 


SLl(IR) * o 


.0 


RE 


SLO(IR) a o 


.0 


DO 


090 11 = 1 


.55 


n 


a TSLOWUI. 


IR ) 


DO 


091 JJ a I 


.Nl-IRANCT 


DO 


091 KK a 1 


-N1 



091 NML(JJ.KK) = LNULL( IP .JJ.KK J 

CALL CMATMLCNML.WVL.Nl-IRANCT.Nl , 1 .L08J) 
LTEST = 0. 

OO 090 JJ = 1.N1-IPANCT 
C090 OLREAL = RLREAL * CAESCL03JC JJ ) ) 



c plan z obj= sum of pl's 

RL = RL * L08 J ( J J ) 

C ASYMM TEST OSJ a 1 NORM 

RESLl(IR) = RE5L1C1R) * CASS (LOBJ C JJ ) ) 

RESLO(IR) = RESLOCIR) ♦ LOBJ ( JJ ) -C0NJGILC8J ( JJ ) ) 

C ASYMM CASE TEST, 03J = INFINITY NORM 

RINFL = CAES ( L03J ( J J ) ) 

IF (LTEST .GT . R INFL JGOTO 090 
REINFL(IR) = RINFL 
LTEST = RINFL 



090 CONTINUE 



RESLO(IR) * SORT (RESLO ( IP ) ) 



C— ' 
C29: 



-PLAN 1 OBJ 

PL = PL * LOBJCJJ) 



C' 



2 a 3 



:°5 



298 

C294 

C 

C294 

C 

C294 

C 

C 

C 

2?4 

c 

BOO 



810 

C 

296 



257 



305 

C 

c — 
c 

24 9 



302 



303 
301 

304 
300 



247 



255 



IF ( IADS . NE . 2 )G070 294 



PLC = CABSCPL) 

PL = CMPLXCO . .0. ) 

00 293 JJ = 1 r 3 7 
DO 293 KK a 1.N1 
NMLCJJ.KK) a LUNULLC l . JJ.KK) 

CALL CMATML(NML-*VL.37.n 1 . l.LCBJ) 

30 295 JJ * 1.37 
PL s RL ‘ LOBJCJJ) 

PLU = CABSCRL) 

IFCPLU.GT.RLD1G070 298 
OBJ s RLO * -EIGHT-PLU 
GOTO 296 

OBJ = PLU • WEIGHT >*PL0 
GOTO 296 
OBJ = PLPEAL 

--PLAN 3 OBJ 

08J a CABS (PL ) 

— PLAN 1 CBJ 

OBJC a CSCRTCRL) 

OBJ = CABS(OBJC) 

INF-NOPM C8JECTI VE FCR ASYMMETRIC CASE 11/1/36— 

OBJ = PEINFLCIR) 

2-NOPM 08JECTIVE FUNCTION 11/3/8& 

OBJ = PESL2CIR) 

2-NOPM ♦ ORIENTATION OBJECTIVE FUNCTION 11/6/86- 

00 800 JJ = 1.55 

DTCJJ) * TDESCJJ.IR) - TSLON(JJ.IR) 

OTNORMC IR 1 a 0. 

DO 810 JJ = 1.55 

DTNCRM(IR) = OTNORMC IR) • OT ( JJ )«CONJG(OT ( JJ ) ) 

OTNORM ( I P ) a SORTIOTNORMC IP n 
OBJ = DTNORMCIR) * RE3L2CIR) 

IFUTEP.GT.2000 1GOTO 257 

IF ( INFO . EO . 0 )GCTO 257 
GOTO 121 

I F ( ICONJG.cQ. 0 JGOTO 249 

<k = iocn 

00 305 LL = 1.55 

TSLOW(LL.KKM) a CONJG (T3LOW (LL • KK ) ) 

REBUILD X.T.XL0N.7SL0N 

DO 300 KK a 1,55 

00 302 LL = I. IRONS 
IFCISTATECLLI.EQ.KKJGOTO 301 
CONTINUE 

00 303 JJ a I ,55 
XSCJJ.KK) a T(JJ.KK) 

XT(JJ.KK) a XSCJJ.KK) 

GOTO 300 

DO 304 JJ = 1.55 

XSCJJ.KK] a TSLOWCJJ.LL] 

XT(JJ.KK) = XSCJJ.KK) 

CONTINUE 

CALL LEQT1CCXS .55.55. UNITYC • 55 . 55 . 0 . NA . I ER ) 

00 247 KK a 1,55 
. DO 247 LL = 1.55 

TCKK.LL) * XT (KK .LL 1 
XDCLL.KK) = UNITYCCKK.LL) 

XCLL.KK) = UNITYCCKK.LL) 

00 255 JJ a 1 . IRONS 
00 255 KK = 1,55 
LL = I STATE ( J J ) 

XSLOW(KK.JJ) = X (KK .LL ) 
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250 

252 



475 

400 

C 

c — 
c 

4 10 



c 

c 



DO 250 KK * 1.55 
DO 250 LL = 1.55 
UNITYCCKK.LL) a CMPLXCO. 0.0.0) 

DO 252 KK = 1.55 
UN I TYC (KK . KK ) a CMPLXC1 .0*0.0) 

DO 475 I = 1 . IRCWS 
RSSR1CIJ = 0. 

RESL1CI J - 0. 

R£SR2C!) = 0. 

RESL2 (I) = 0 . 

RESRd ) = CMPLXCO. .0. ) 

RESLC I ) a CMPLXCO. .0. ) 

GOTO 2C8 

CALL FRTCMSC 'CLRSCRN *) 

DISPLAY OBJECTIVE =UNCTICN 

WRITE(b.4lO JOSJ . RESL2 ( IR ) . DTNORM C I R J . INFO. HER . RLD . RLU . WEIGHT 
FCRMATC/5X. * «*** ADS CCMPLETE **** *. /5X. 

- * OBJECTIVE FUNCTION = • .E12.S./5X. 

" * 2-NCRM OF RESIDUAL = ‘.E12.5./5X, 

» * CT 2-NORM OF DIFF = ‘-E12.5./5X. 

* * INFO * * . II . • ITER = * . 14. /SX. 

- * DAM-uT OBJ = ’ . £12 . 5 • IX . * UND-LT CBJ = '.E12.5./5X. 

* * -.eight factor = *.ei2.s./j 

DECIDE *0 REENTER ADS. -.RITE ACSDAT FCP ELSPACE RENTRY OR- 

WRITE CP’EIG FOR RECONF RENTRY. 



WRITEC6.470 ) 

470 FORMAT ( /5X. * -»•*!«*« ENTER M 1 M TO REENTER ADS *****',/SX. 



* 




enter 


“2 ” 


TO 


WRITE 




./sx 


< 


4 H * * « 


ENTER 


„r.. 


TO 


WR I TE 


XSLOW ****** 


./5X 


* 


• *4 4 <# <4 


ENTER 


”4 " 


TO 


WRITE 


SEGEIG ***** 


./SX 


n 


9 « 4 4 4 


ENTER 


.'O'' 


TO 


WRITE 


OPTEIG ***** 


./ ) 



READ C •* . 8 ) IEEN 
CALL FRTCMSC ‘CLRSCRN •) 
I F ( I EEN . EO . 0 ) GOTO 424 
IFCIEEN.EC.2 JGOTO 510 
IF ( I EEN . £3 . 3 ) GOTO 521 
IFCIEEN.EQ.4 )GOTO 530 
CO 500 1 = 1.24 
RESR1 ( I) = 0. 

RE3L1CI) * 0. 

RESR2CI ) = 0. 

RESL2CI) * 0. 

REINFRCI ) = 0. 

REINFL(I) = 0. 

RESRCI ) * CMPLXCO. .0. ) 
500 RESL(I ) * CMPLX ( 0 . .0. ) 

INFO = 0 
ITER = 0 
GOTO 208 



C WRITE FILE 08 OPTEIG FOR USE BY RECONF 

r 

C INSERT ACT* SENSOR UND ELEMENTS 

C VALUES INTO SLCW EIGENVECTORS— WEO/LAT ELE 9-16 

C424 DO 462 I » 5.43 

C424 DO 462 I * 9.43 

C DO 462 J = 33.55 

C IFCJ.NE.41 JGOTO 467 

C IFCJ.NE.42)G0T0 467 

C IFCJ.NE.45 )G070 467 

C IF C J . nE . 52 JGOTO 467 

C IFCI .NE.9JG0T0 467 

C I c ( I . nE. 10 JGOTO 467 

C IFC I .NE. 11 JGOTO 467 

C IF C I . NE .12 JGOTO 467 
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C IFC I .ME. 1SJG0T0 6 6 7 

C IF(I.NE. 16 )GOTO 66 7 

C I F ( I .NE. 15 )GOTO 667 

C I F C I .NE. 16 JGOTO 667 

C GOTO 662 

C XD( I • J) * XSAVE ( I -J ) 

C6 62 CONTINUE 

C INSERT UNO LAT ELEMENTS INTO SLOW LONG EIGENVECTORS 

C DO 666 I = 5.8 

C XD ( I .38) * XSAVE C I . 28 ) 

C XO( 1.3°) = XSAVE ( 1.39) 

C XD ( I • 6J ) = XSAVE (I. 63) 

C66 XD C I • 6 6 ) 2 XSAVE (1.66) 

C INSERT UNO LON ELEMENTS INTO SLOW LAT EIGENVECTORS 

C 00 666 I = 1.6 

C XD( 1.61 ) * XSAVE( I .61 ) 

C XD( 1.60) * XSAVE ( 1.60) 

C X0( I * 65 ) * XSAVE (1, 65) 

C66 XDCI.S2) * XSAVE (1*52) 

C -RECONSTRUCT FAST EIGENSPACE FROM UNQAMAGEO EIGENSPACE- RECR25-- 

C -FOR RECR25 7.8.17.18.23.26 ARE ALSO SLOW 5TATE3- 

C606 DO 663 I 2 0.63 

C DO 663 J = 1 .37 

C IF(J.EQ.7)G0T0 663 

C IF( J . EQ .3 3G0T0 663 

C IFCJ.EO. 17 )GOTO 663 

C IF C J.EO. 18 )GOTO 663 

C Ir(J.EQ.23)GOTO 663 

C IFCJ.EO. 26 JGOTO 663 

C XD(I.J) 2 XSAVE C I. J) 

C6 63 CONTINUE 

C INSERT FAST ELEMENTS OF CONTROL LAW FILTERS 

C DO 665 J = 1 .37 

C XDC65.J) 2 XSAVE ( 65 • J ) 

C665 XDC67.J) = XSAVE ( 6 7 . J ) 

C RESTRUCTURE X. DELTA 8Y REORDERING THE FIRST 18 

C VECTOR/EIGENVALUE PAIRS TO SE THE SLOW EIGENSPACE 

626 DO «00 I = 1.55 

DO *00 J = 1.18 

900 XDRCI .J) 2 XD ( I . J *3 7 ) 

00 910 I = 1.55 

DO 910 J = 19.55 

910 XDRCI. J) = XOCI.J-18) 

DO ^20 1 = 1, 18 
*20 EDR ( I ) 2 EC( I *3 7 ) 

DO 925 I s 19,55 
0 25 EORC 1 ) = EOC 1-18 ) 

00 930 I = 1.55 
930 EOC I ) * EORC I ) 

DO 935 I * 1.55 

DO 935 J = 1 ,55 

925 XDCI.J) 2 XDRCI. J) 

c REINSET FAST EIGENSPACE 

C 00 936 I = 9.63 

C DO 936 J = 19.55 

C XDCI .J) 2 XSAVE C I.J) 

C936 CONTINUE 

C OUERV USER TO CHECK RECONSTRUCTED OPT SPACE FOR RES I DUALS- 

WRITEC6 . 610 ) 

610 FORMATC/5X. * CENTER "l** TO CALC RESIDS FOR RECONSTRUCTED SPACE*'. 



/5X. ' "ELSE "0". ./) 

READC * .8 ) IRECHK 
IF C IRECHK . EQ . 0 JGOTO 668 
DO 630 I = 1.55 
DO 630 J = 1.55 
DR = DREALCXDCI. Jl) 

DC 2 DIMAGCXDC I.J)) 

R = SNGLCDR) 

C * SNGLCOC) 
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630 



xsu . J ) = CMPLXCR.C ) 

20 645 I = 1.55 
00 645 J = i . irows 
« = ISTATEC J ) 

645 XSLOWC I , J) = X5( I .KK) 

20 650 I = 1. 24 
RESLHI) = 0. 

RSSR1U ) = 0. 

»E3L2( I ) = 0. 

RESR2 ( I J = 0. 

REISFRU) = 0. 

REINFLU) = 0. 

RE3RC ) a CMPLXCO. .0. ) 

650 RESLCI ) * CMPLX(0. .0. ) 

INFO a 0 
I T ER = 0 
GOTO 620 

4 68 WRITS (3- 4 90 H CXOU . J) . J = 1 .55 ) . I*-l .55 ) 
WRITEC8.460 HE3U ). 1 = 1.55 ) 



460 FORMAT (402 0 . 12 ) 

GOTO 9000 
C 

C WRITE FILE IPASS XSLOW FOR 0EC3MP- 



c 

52i ipass * i pass * l 

wRI7E(*PASG.2)IPCW3. IP AGS 

WR ITE( I PASS . 4 ) UGTaTEC I ). 1=1 . IROWS) 

WR ITE ( IP ASS . 3 ) ( (X( I . J ) . J = l . 55 ) • 4 = 1.55 ) 
WRITEUPA3S.3)((T(I ,J).J= 1.55 ). 1 = 1.55) 
WRITEU^AGS.JH (XGLOWC I .J). J = i . IROWS) . 1 = 1.55) 

-R I T= ( I PASS . 3 ) ( ( 7SLCW ( I . J ) . j = l . I ROWS ) . I = 1 . 55 ) 

WR I “E (I PASS . 3 ) ( ESLOW ( I ) , I = 1 . I ROWS ) 

GOTO 9000 
C 

C WRITE FILE I?ASS AOSOAT FOR USE 8Y ELSPACE 

C 

510 IPASS = IPASS ♦ 1 

WRI7E( IPASS. 2) IROWS. IPASS 

WRITE( I PASS. 4) CISTATEU ) . 1 = 1 .IROWS) 

WRITE ( IPASS . 3 ) ( (X( I .J).J*1 .55) . 1=1 .55) 
wR:TECIPASS.3)((T(I,J).J=1 .SS) .1=1 .55) 

WRITEC I PASS. 3 ) ((XSLOW (I , J ) . J = 1 . IROWS) . 1 = 1.55) 

W» I TEC IPASS. 3 )( (TSLOW( I .J).J = 1. IROWS). 1 = 1.55) 

WRI'EC IPASS. 3 ) (ESLOWCI ) . 1=1 , IROWS) 

GOTO 9000 

C 

c WRITE FILE 9. 10. OR 11 SEGEIG OATA 

C 

530 CALL =R"CMSI ’ CLRGCRN •) 

WRI7EC6.535 ) 

535 FQRmaT(/5x, ' ---- ENTER DESIGN SEGMENT NUM8ER •«««'./) 

REAO( “ .8 ) ISEG 
IScG = ISEG ♦ 8 

WRITE( ISEG. 3 ) ( (X3L0WC I . J ) , J= 1 .IROWS) .1=1.55) 

W‘R I TE ( I SEG . 3 ) ( ESLCW ( I ) . 1 = 1 . IROWS) 

9000 STOP 

ENO 

C- ----------- ------ 

c 

C SUBROUTINE CMATML (COMPLEX MATRIX MULTIPLICATION) 

C 

C COMPUTES: VY = AA - 88 

C IA = a OF ROWS IN AA 

C LL = « CF ROWS IN 88 AND a OF COLUMNS IN AA 

C IS = 3 OF COLUMNS IN B3 

O ------ --------- - ----- - - - 

SUBROUTINE CM AT ML (AA, 33. I A . LL • I3.YY) 

COMPLEX -8 AA (55. 55 ) .38(55.55 ) .VY (55. 55 ) 

INTEGER IA.LL.I8 
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DO 3 0 I = 1 . I A 
00 CO J ■ 1*13 
VV{ I I J ) 3 CMPLXCO. .0. ) 

DO 10 INDEX * 1 ’LL 

VYd.JJ s YY(I.J) ♦ AACI.INOEX) - BB(INDEX.J) 
10 CONTINUE 

DO CONTINUE 

30 CONTINUE 

RETURN 

END 

- 

c 

C SUBROUTINE SROOT: CONVERTS Z-PLANE ROOTS TO 

C S-PLANE ROOTS 

C 

C CDR V.F. GAVITO JULY 1«86 

C 



SUBROUTINE 3R00T < Z * S* T ) 

IMPLICIT REAL-A(A-H.P-Z) 

COMPLEX *8 Z.s 
RS = I MAG (Z ) 

RC * REAL(Z) 

3 * CATAN2CRS.SCM/T 
RZ s CABSCZ) 

A s -LOG C RZ )/T 
S s CMPLXC-A.3) 

RETURN 

END 
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APPENDIX G 



SAMPLE RECONFIGURATION RUN FOR F-18, CASE A DAMAGE 



RECCNF 

VS FORTRAN COMPILER ENTERED. 12:59:29 

* *MAIN* " END CF COMPILATION I *-«"*** 
--CMATML'*'* END OF COMPILATION 2 
•-RANKD-* END OF COMPILATION 3 -■««""« 
“-WRMATD-* END CF COMPILATION A 

* *SRC07 * *» END OF COMPILATION 5 

VS FORTRAN COMPILER EXITED. 12:59:36 



LOADING RECCNF AND ORACLSA 
EXECUTION BEGINS . . . 

ENTER "i" TO WRITE UNDAMAGED E IGEN3TRUCTURE . 2 

SVST. MATRICES. (READ "RECONF" DATA Al, 
"UNDIEG" • "UNDA3C" • £ "CLM*’ . 

ENTER ,, 2" TO READ UNDAMAGED E IGENSTRUCTURE AND 

WRITE SLOW RT SUBPACE DATA FOR USE BY 
"ERSPACE” (WRITE ,, ERSPACE*' DATA Al) 
ENTER "3" TO COMPUTE RECONFIGURED GAINS. 

(WRITS "FRECCN’* DATA Al) 

ENTER "A" TO COMPUTE RECCNFIG. E IGENSTRUCTURE 

AND TIME RESPONSE ( OPTMATD » QPTPLOT ) 
ENTER "S'* TO COMPUTE 0 AND WRITE FILE 12 
"FXACT” DATA. 



2 



EN^ER "I" TO MODIFY DESIRED EIGENSTRUCTURE 
--*•« ELSE ENTER "0" .**«« 



0 



--«« ENTER "I" TO DISPLAY DESIRED EIGENSTRCTURE* "■«« 
ENTER “O'* OTHERWISE. 



0 



CALLING LSVDF FOR 3 *"*" 



LSVDF CF "B" COMPLETE 
*<**" RANK ( B ) = 10 *"* 

-«"* CALLING LSVDF FOR C 



--«* LSVDF OF "C" COMPLETE 



**-«* RANK (C J = 13 



SLOW 


STATE 


NC. 


1 


UND 


STATE 


NO . 


33 


S 


- 


-0.2279AE*0i 


0 . 270 1 6E* 0 1 J 


SLOW 


STATS 


NO. 


2 


UND 


state 


NO. 


39 


3 


= 


-0.2279AE*0l 


-0.27016E*01J 


SLOW 


state 


NO . 


3 


UND 


STATE 


NO. 


AO 


S 


= 


-0 . 38 I IAE*0 1 


0 . 00000E*00J 


SLOW 


STATE 


NO. 


A 


UND 


state 


NO. 


A I 


3 


s 


-0. 18703E*0I 


0 . 26 152E + 01 J 


OLOW 


state 


NO. 


s 


UND 


STATE 


NO. 


A2 


S 


s 


-0. 18703E*0I 


-0.26 152E*01 J 



217 



SLOW 


STATE 


NO. 


6 


UNO 


STATE 


NO. 


63 


S 




-0 . 5 1 166E*00 


0 . 00000E*00J 


SLCW 


state 


NO. 


7 


UNO 


STATE 


NO. 


66 


S 


= 


-0. 11588E*01 


0 . 00000£*00J 


SLOW 


state 


NO. 


8 


UNO 


state 


NO. 


65 


s 


s 


-0.2906CE-01 


0 . 00000E*00 J 


SLOW 


STATE 


NO. 


9 


UNO 


state 


NO. 


66 


s 


a 


-0 . 1 7330E-0 1 


0.00000E*00J 


SLOW 


state 


NO. 


10 


UNO 


state 


NO'. 


67 


s 


= 


-0 .20C36E-01 


0 . 00000E*00 J 


SLOW 


STATE 


NO . 


11 


UNO 


state 


NO. 


68 


s 


3 


-0. 16636E*01 


0 .00000E*00J 


SLOW 


STATE 


NO. 


12 


UNO 


state 


NO. 


6* 


s 


3 


0 . 36383E-02 


0 . 0000QE*0 OJ 


SLCW 


STATE 


NO. 


13 


UNO 


STATE 


NO. 


50 


s 


= 


-0. 10000E*01 


0 . 0000CE*00J 


SLCW 


STATE 


NO. 


16 


UNO 


STATE 


NO. 


51 


s 


= 


0 . 00Q00E*0Q 


0.0000CE*00J 


SLCW 


state 


NO. 


15 


UNO 


STATE 


NO. 


52 


s 


= 


0 .2*1185-02 


0 .OOOOOE*OOJ 


SLOW 


STATE 


NO. 


lo 


UNO 


STATE 


NO. 


53 


s 




0 . 00000£*00 


0. 0000CE-00J 


SLCW 


STATE 


NO. 


17 


UNO 


STATE 


NO. 


56 


s 


= 


-0 . 2C0C lc*0 1 


0.00000E‘00J 


SLOW 


STATE 


NO. 


18 


UND 


STATE 


NO. 


55 


s 


= 


-0.20001E*01 


0 . 00000E-00J 


R: T ; 


=*.39/11.2 


3 1 


3:00: 


: 06 















E9SPACE 

VS FORTRAN COMPILER ENTERED. 1 3 : OC : J C 



»*MA1N*« END CF COMPILATION 1 

* “CMATML* * END CF COMPILATION 2 

**SROOT*“< END OF CCMP1LAT1CN 3 *«««** 
VS FORTRAN COMPILER EXITED. 13:02:35 



LOADING ERSPACE 
EXECUTION BEGINS. . . 

a*** INDICES OF SLOW EIGENVALUES 



38 


39 


60 


61 


62 


63 


66 


65 


66 


67 


68 


6* 


SO 


51 


52 


53 


56 


55 







THE FOLLOWING VECTOR DISPLAYS THE NEARNESS OF --*«* 
»-*•«* EACH SLOW EIGENVECTOR TO THE ALLOWABLE RIGHT *<<•* 

***« HAND SLOW E1GENSPACE FOR THE DAMAGED F18 MODEL. 

0.3691**58201780-02 
0.36*1**56201780-02 
0.29565636996560-02 
C .63032302732960-02 
0.63032302732960-02 
0. 1927162332338 D-02 
0.2176680703O60D-02 
0 .60671676668160-02 
0. 29233812152720-03 
0. 7099626971567D-06 
0. 16 *8 36639693 10-02 
0.7207061731*560-02 
0.28566388988310-11 
0 .25507612251550-12 
0 .89*02872990800-05 
0.8*664682115200-10 
0.6*0717513637*0-12 
0 . 00000000000000*00 

ENTER "l” IF RESIDUAL IS UNSAT TO RENTER ADS ***« 
ELSE ENTER “O'*. 



0 



**** WRITING ELSPACE DATA FILE 08 
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"=:s iz -. cz-.zz 

els race 

VS FCR'RaL COOLER ENTERED. 12: C4r!9 

*•^1^* esc c= cc m ?!lat:cm i 

«-c> , a-*l-« 2? ccv=:_i?:cs ; -•--•« 

--srcc'-- =s: := ss-?:_A-:cs 2 

.'S =C?-5is COMPILER EX I "2. 12:36:25 



- 2 A 2 IS 3 =_S?AC= ACS 
EXESUTICn BEGINS... 



3 an< (:•«-) 



• es'£ 5 :.= :s =cr ln:a« -^^-vsis «*•• 

Es'ER -3- ELSE. -«-- 



-••- en-=r “i " : r first =ass >Ri’ e_s?ace -•*• 
--•• =s”=3 = ASS NjvsER CT-ESUISE. • *•« 



SLSw 3.5S=AC= RESIST = 0.2556 :=-:i 

xr- zzzz?-z=. r=s:2-a w = :..:5::=-:r 



E\EC" SLOW S”A‘E RS'-Ca* 5=SIS~ALS c = 


T- Sam 5ES1SUALS 


:a 


1 3.36=:6E-3S 


3. risers-:: 


3.22636=-:: 


2. 22672E-3: 


5* 


2 3. 26=26=-:: 


:.:i2S2E-c: 


o.22636=-c: 


:. 22672=-:: 


63 


2 3. 2 = 567=-:: 


0.26=55=-:: 


0.277=0=-:: 


3 .26721 = -:: 


6 ; 


6 3.6S244=-3: 


C.369CIE-C2 


3 . R35SCE-02 


C.6S961E-C2 


62 


S 0.62266E-C2 


3.26=21=-:: 


3. -C52CE-3C 


3.62=61=-:: 


6’ 


6 3 . :=c8*e-c: 


3.1*565=-:: 


: . ::?===•:: 


: .77-6:=*:: 


64 


:.:i7=*=-c: 


3.1=52==-:: 


C.c3?35E-Sl 


3.65-62E-G1 


65 


3 3.62675E-3: 


0.27S67E-32 


3.1C63SE-30 


3. 76; o i£- Cl 


66 


« 0.:=22S=-G3 


3 . :=530=-33 


3. 15357E-01 


: . icoSoe-ci 


6 ' 


13 3 . s3 "5 ?E-36 


3.53E66E-C6 


3.::67:=-:: 


3. 16515=- Cl 


63 


:: :.:6537=-:: 


3. 12553=-:: 


C.1152s=-:i 


3.516=5=-:: 


63 


i: 3.7:362=-:: 


c. 55513=-:: 


u.s=325E-33 


3.6=215=-:: 


S3 


12 c.:ss-cs-u 


O.S33'3E-U 


3.2721 ?=- 3 1 


:. i=s;==-ci 


s: 


16 255:7=-;: 


3.176=3=-!2 


3.::;s"=-3: 


3. 22356=- Cl 


s: 


15 C. 6S755E-33 


3.65663E-32 


3.51=55=-:: 


3 . 262=6=-C 1 


53 


16 c.9«665E-:: 


3 . 73232E-2 3 


:. cocose*:: 


3.33333E-32 


56 


•7 3. 6 92C5E- 12 


3. 33527E-12 


: . :cco:=-c3 


3 . 33333E- 30 


55 


13 3.3:333=*:: 


C . CC3CCE-33 


o.::cc3=-c: 


c. :::: ce-o: 


.... 


=s'ER “I" =29 ylN. CF Jr~- 


:am 3=s::.als 


CSLV --*» 






us: S3 i = E VESTS 3 ELE-E'.TS as VARIABLES---- 






=S-=R -:* =2= _=7 NJL- S?6 


CE 1S~5SES. ASA L*. .... 




---- 


=N~ER "2” ~2 S-I=- a SESI3ES SLC- EIGENVALUE 




.... 


=s-=R -6- tq =XIT ELS? ACE 


As: •sirs C="£ 


33 -- •• 




— 


£S-=R -5" =SR -IS. C= u?’- 


sa« resis-alg 


:sl / • - - - 




•••* 


usisg e:c=sva w ^e 


, A3 VARIABLE. 






•••* 


=*^- = = “o'* “3 -R 1 “E SESEIS. 








---* 


Es-E= “7“ TC EXIT EaSRaCE. 










£S~ER “C“ ’0 EX !' E_S=AC= 


as: •=,;-= /Bus- . ---• 






=s“E= SLOW IS2EX S= ==SISU'AL = CR ACS 
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*«** AOS IS 3EING ENTERED FDR ESLOWC 1J 
«««« Z * 0.97136E-00 0.32815E-01J 

S = -0 .22790E*0 1 0.2701 6E*0 1 J 

"»*« ENTER BOUNDS ON THIS SLOW LFT EVECTDR 
«•«*-“ IN F20.12 FORMAT. 

UNDAMAGED EIGENVECTOR NO. 38 '**•*'• 



REAL TOLERANCE = 

0.001 

«**>« IMAG TOLERANCE * 



AOS COMPLETE 

OBJECTIVE FUNCTION s 0 . b 1855E*0 1 
Z-NDRM OF RESIDUAL * 0.6I855E-01 

DT 2-NDRM OF DIFF = 0.27028E-02 

INFO =0 ITER = 535 

DAM-LT OBJ = 0 . 00C00E*00 UND-LT D8J * 0.00000E*00 

WEIGHT FACTOR = 0 . 1 OOOOE-O I 



ENTER 


”r* to 


REENTER ads 




ENTER 


- : H td 


WRITE ADSDATA 




ENTER 


••3" TO 


WRITE XSLOW 




ENTER 


M A M TD 


WRITE SESEIG 




ENTER 


"0" TD 


WRITE DPTEIG 





OAM-RT SLOW SUBSPACE RESIDUAL * 0.A26A8E-01 

DAM-LT SLOW 3UESPACS RESIDUAL = 0.705I0E*02 '•-** 



UND EVECT SLOW STATE RGT-Dam RESIDUALS LFT-Dam RESIDUALS 



38 


1 




0 . A0A92E-02 


0.37709E-02 


0 . 6 1855E ♦O 1 


0 . A 68 I AE* 


39 


2 




0.A0A88E-02 


0 . 37707E-02 


0 . 6 1855E*0 1 


0. A681AE* 


AO 


3 




0 . 32 182E- 02 


0.29602E-02 


0 . 37790E*02 


0 .2672 IE* 


A 1 


A 




0 .A60°8E-02 


0.37 38BE- 02 


0. 90522E-02 


0.639A1E- 


A2 


5 




0.A5815E-02 


0 . 27AA2E-02 


0. 90522E-02 


0. 639A 1E- 


A3 


6 




0.2A062E-02 


0.22697E-02 


0. 10°« Q E*02 


0. 77762E* 


AA 


7 




0.25AZ2E-02 


0 . 2A8 1 a E- 02 


0 . 68 Q 58c*01 


0.A87A3E* 


A5 


8 




0 . A209b£-02 


0 - 26A 73E-02 


0. 10A88E-00 


0. 7A16IE- 


A6 


9 




0 . 37225E-03 


0 . S5227E-03 


0. 15057E*01 


0. 12600E* 


A7 


10 




0.1 18 A°£-03 


0. 9A35AE-0A 


0. 20671 E- 01 


0. 1A616E- 


A8 


11 




0. 15197E-02 


0 . 1 2792E-02 


0.1 15 36E-0 1 


0 . 8 1 A Q 5E- 


A9 


12 




0 . 9 183 7E-02 


0.8b928E-02 


0.69235E-00 


0.69318E* 


50 


13 




0.53323E-0A 


0 . A 78 7AE-0A 


0. 27317 E- 01 


0.1931 6E- 


51 


1A 




0 . 37652E-05 


0.365 75E-05 


0 . 23157E-0 1 


0 . ZSGSAE- 


52 


15 




0.A25ACE-03 


0 . A21 °8E-03 


0.51 955E-0 1 


O^bZ^AE- 


53 


16 




0 . 92229E-03 


0.675AAE-03 


0.00000E-00 


0 . 00000E* 


5A 


17 




0. 27015 E- 03 


0.26852E-03 


0 .00000E-00 


0 . 0 0 0 OOE ♦ 


55 


18 




0 . 3 A582E-05 


0. 3A3A2E-05 


0 .O0D00E*O0 


0 . 00 0 OOE ♦ 




enter "l" 


FOR 


MIN. OF LFT- 


DAM RESIDUALS 


Only 4»«» 






USING ARB VECTOR ELEMENTS AS VAR I ABLE5 * " ** - 






ENTER "2" 


FOR 


LFT NULL SPACE INTRSEC. ANALY. h*** 




M * * H 


ENTER "3 M 


TO 


SHIFT A DESIRED SLDW EIGENVALUE 






ENTER "A" 


TO 


EXIT ELSPACE 


ANO WRITE OPTEIG 




<4 H H SI 


ENTER "S" 


FOR 


MIN. OF LFT- 


DAM RESI0UAL5 


only 




'«'*>»«* 

4 4 4 4 

4 4 4 4 
«* tt *4 (4 


ENTER "b" 
ENTER " 7 " 
ENTER "0" 


USING EIGENVALUE 
TO WRITE SEGEIG. 
TO EXIT ELSPACE. 
TO EXIT ELSPACE 


AS VARIABLE. 

AND WRITE XSLOW. 





•01 

01 

•02 

•02 

•02 

•01 

01 

•0 1 

01 

•01 

02 

•00 

01 

•Cl 

•01 

•00 

•00 

•00 
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1 



«*•"" ENTER SLCW INOEX OF THE RESIDUAL FOR AOS ---- 



ADS IS BEING ENTERED FCR ESLOWC 2) --- 
Z = 0 . 95 347E* GO 0.0C000E*C0J 

S = -0.38118E*01 0.00200E-00J 

ENTER oOUNOS ON THIS SLCW lFT EVECTOR 
IN FZO. 13 FORMAT. 

UNDAMAGED EIGENVECTOR NO. A0---- 



REAL TOLERANCE = 



IMAG TOLERANCE 



--- ADS COMPLETE ---- 

08JECTIVE FUNCTION s 0.860A6E*01 
O-NORM Or RESIDUAL = 0.36096E-01 

DT C-nCRM OF 01 FF = 0.28879E-C2 

INFO = C I T ER = 536 

OAM— lT 03 J » 0.0C000E-00 UN0-L7 08J = 

weight factor = o.iocooe-oi 



o .oooooe*oo 



VMM 


ENTER 


TO 


REENTER AOS 


M M M M 


VMM 


ENTER "D" 


TO 


«R 1 TE 


AOSOATA 


M M M M 


VMM 


ENTER "3" 


TO 


WRITE 


XSLOW 


M V M M 


M M M 


ENTER 


TO 


WRITE 


SEGE1G 




M M M 


enter #, O m 


TO 


WRITE 


0PTEI3 


— — — — 



-- CAM— RT SLCW SUSSPACE RESIOUAL = 

-- DAM-lT slow sussrace residual = 



0.43721E-01 
0 . 4 1 230E * 02 



UNO EVECT SLCW STATE rgt-dam residuals lft-oam resiouals 



38 


1 


0.A1D67E-0D 


0 .3862AE-02 


0 . 6 1855E*0 1 


0.A(j81AE-01 


39 


D 


0 . A 1 385E- OD 


0 .387A7E-02 


0 . 6 1855E*0 1 


O.A 0 31AE*Oi 


AC 


3 


0. 31300 E- 02 


0 . 23 79 IE-02 


0 .860<>6E*01 


0.54260E*0l 


a; 


A 


0 .A5921E-02 


0 . 37 393E-02 


0 .90522E-02 


0.639A1E-02 


AD 


5 


C .A6600E-02 


0.37AACE-02 


0 .90522E-02 


0 . 639A1E-02 


A3 


6 


0.25A8AE-02 


0.24186E-02 


0. 10999E-02 


0 . 7 7 762E* 0 1 


A A 


7 


0.D75A3E-02 


0 . 26 023E- 02 


0 . 689 38E * 0 1 


0 . A8 7A2E* 0 1 


A5 


8 


0 . A2097E-02 


0 .36A73E-02 


0. 1 0488E *0 0 


0.7A161E-01 


A6 


9 


0 . 2^882E-03 


0.37983E-03 


0 . 15057E*0 1 


0. 12600E*01 


A7 


10 


0.11463E-03 


0 .89720 E-OA 


0 .20671 E- 01 


0. 1A616E-01 


A8 


11 


0. 15328E-02 


0 . 13802E-02 


0. 11536E-01 


0.81A^5E-02 


A9 


ID 


0 . °8A42E-02 


0 .9377AE-02 


0.69335E*00 


0.69318E-00 


50 


13 


0.5275 1E-0A 


0 .47870E-04 


0.2731 7E-0 1 


0- 19316E-01 


51 


1A 


0 .3A71«E-05 


0 .33888E-05 


0.23157E-01 


0 . 2305AE-0 1 


c *» 


15 


0 -AD625E-C3 


0 .A229AE-03 


0.51955E-01 


0.3629AE-01 


53 


16 


0 . 92305E-03 


0.66797E-03 


0 . 00000E-00 


0 .00000E*00 


5 A 


17 


0 .26203E-03 


0 .260A^E-03 


0 . 00 00 OE* 00 


0. 00000E-00 


55 


13 


0 . 3 1 985E-05 


0 . 3 1 772E-05 


0 . 0 00 0 OE * 00 


t) . 00000E*00 



---- ENTER M l“ FOR MIN. OF LFT-OAM RESIOUALS ONLY -«*» 
---- USING AR8 VECTOR ELEMENTS AS VARIABLES---- 

--*■ ENTER ”2" FOR L ff T NULL SPACE 1NTRSEC . ANALV. -«-» 
---- ENTER M 2 M TO SHIFT A CE31RE0 SLOW EIGENVALUE ---- 
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***** 


ENTER 


”4 " 


TO 


EXIT ELSPACE ANO 


WRITE OPTEIG 


«#***•*• 


* * * * 


ENTER 


"S’* 


FOR MIN. CF LFT-OAM 


RESIOUALS ONLY 




* * * * 






US 


ING EIGENVALUE AS 


VARIABLE. 


**** 


* * * * 


enter 


,, 6" 


TO 


WRITE SEGEIG. 




-*** 


***** 


ENTER 


"7" 


TO 


EXIT ELSPACE. 




*"** 


-*«* 


ENTER 


"0 M 


TO 


EXIT ELSPACE ANO 


WRITE XSLOW. 





ENTER SLOW INDEX OF THE RESIDUAL FOR AOS *•*•••* 



*««« AOS IS BEING ENTERED FOR ESLOWI 6) 

-««« 2 - 0. Q 9362E*00 0 . 00 OOOE* 00 J 

S = -O.Sll23E*03 0 . OOOOOE*OOJ 

-hm ENTER BOUNDS on THIS SLOW LFT EVECTOR *«** 
*-•<* IN F20.13 format. 

***** UNOAMAGEO EIGENVECTOR no. 43**<«* 



**** REAL TOLERANCE * »*«* 

0.001 

**** IMAG TOLERANCE = **** 

0.001 

***** ADS complete ***** 

08JECTIVE FUNCTION * 0.98729E*01 

2-NORM OF RESIDUAL * 0.98729E*01 

OT 2-NORM OF 0 IFF = 0.186 Q 4E-02 

INFO 3 0 ITER a 374 

OAM-LT 08J = 0 . 00000E*00 UNO-LT OBJ » 0.00000E*-00 

WEIGHT FACTOR * 0.10C00E-01 



**** ENTER "l" TO REENTER AOS **** 
***** ENTER "2". TO WRITE ADSDATA ***** 
**** ENTER H 3" TO WRITE XSLOW ***** 
*•«•••• ENTER "4'* TO WRITE SEGEIG **** 
***** ENTER "O’* TO WRITE OPTE1G ***** 



***** OAM-RT SLOW SUBSPACE RESIDUAL s 0.42688E-0I **** 
“••-I* DAM-LT SLCW SUBSPACE residual = 0.40204E-02 ***** 



UNO EVECT SLOW STATE RGT-OAM RESIDUALS LFT-OAM RESIOUALS 



38 


1 


0.41283E-02 


0.28645E-02 


0 . 6 1855E *0 I 


0 . 4 68 14E ♦ 


34 


2 


0.41 2 69E-02 


0 . 38 727E-02 


0 . 61855E*0 1 


0 . 4 68 1 4E ♦ 


40 


3 


0.31 302E- 02 


0 . 28793E-02 


0 .86096E *01 


0 .S4260E* 


41 


4 


0 . 45 925E-02 


0.37 392E-02 


0 . 90522E- 02 


0. 63941E- 


42 


5 


0 . 4 66 38E-02 


0.37 442E-02 


0 . 90S22E-02 


0.6394 1E- 


43 


6 


0.25487E-02 


0 . 24 189E-02 


0 . 98729E*01 


0 . 6 Q 232E ■*■ 


44 


7 


0.27545E-02 


0.26020E-02 


0 . 63938E*0 1 


0.48743E* 


45 


8 


0. 41914 E- 02 


0 . 3632 1 E-02 


0 . 1C488E*00 


0.7416 1E- 


4* 


q 


0.3988 IE-03 


0 . 3 7 Q 8 1 E-0 3 


0. 150S7E*01 


0. 12600E* 


47 


10 


0. 11464E-03 


0.8976 9E-04 


0. 20671 E-01 


0 . 14616E- 


48 


11 


0. 1S227E-02 


0.13311 E-02 


0. 11S36E-01 


0.81495c- 


49 


12 


0.9842SE-02 


0 . 93766E-02 


0.6933SE*00 


0.6 Q 318E* 


50 


13 


0.S2782E-04 


0.47872E-04 


0.2731 7E-0 1 


0. 19316E- 


51 


14 


0 . 354 69E-05 


0 . 34 3 1 1 E-05 


0 . 23 1S7E-01 


0 . 23054E- 


52 


15 


0.42S31E-03 


0.421 98E-03 


0.51 955E-0 1 


0.36294E- 


53 


1 6 


0 . 908 1 6E-03 


0 . 64 633E-03 


0 . 00000E ♦00 


0 . 00C00E * 


54 


17 


0 . 26202E-03 


0 . 2604 9E-03 


0 . 00000E*00 


0 . 00000E* 



01 

■01 

■01 

■02 

•02 

■01 

■01 

■01 

■01 

•01 

•02 

■00 

•01 

•01 

•01 

■00 

■00 



222 



55 



18 



0.3198AE-05 0. 31771 £-05 0.00000£-00 0.00000£*00 



1 



05 



»--* enter 



- enter 

- ENTER 

- ENTER 

- ENTER 

« ENTER 

- EN'ER 
•* ENTER 



"l" FOR MIN. OF LFT-OAM RESIOUALS ONLY -*** 
USING AR8 VECTOR ELEMENTS AG VAR IaBLES* 1 * »« 
f=CR LFT NULL SPACE INTRSEC. ANALV. 

"3" TO SHIFT A DESIREO SLOW EIGENVALUE <**""» 
"A '* TO EXIT ELSPACE AND UR I TE OPTEIG ---- 
" 5 ■* FOR MIN. CF lFT-OAM RESIDUALS ONi_Y ---- 
USING EIGENVALUE AS VARIABLE. «>*-» 

"6" TO WRITE SEGEIG. »*** 

**7" TO EXIT ELSPACE. "•»* 

"O'* TO EXIT ELSPACE AND WRITE XSLOW. -«»* 



*«•** Enter slow index of the resioual for aos »«•<•» 



**** AOS IS BEING ENTEREO FOR ESLOW( 6) «***« 

Z a 0 . 99363E*00 O.OOOOOE*00J 
"*"* S = -0.51 1 2 3c * 00 0. OOOOOE^OOJ 

ENTER SOUNDS ON THIS SLCw LFT EVECTOR 
---* IN F20.13 FORMAT. «»->< 

* -*** UNOAMAGEO EIGENVECTOR NO. A3- --a 



REAL TOLERANCE = 

0.001 

---- IMAG TOLERANCE = 

0.001 



'»* ADS COMPLETE ---- 

OBJECTIVE FUNCTION s 0.86568E*01 
Z-nCRM CF RESIOUAL =* 0.86568S-01 

DT 2-NORM OF DIFF * 0 . 38 12AE-02 

INFO * 0 ITER = 373 

DAM-lT CBJ = 0 . 0000CE* 00 UNO-LT OBJ = 0.C0000E*00 

weight factor = o.icoooe-oi 



***» ENTER " 1 '* TO 
---- ENTER -2" TO 
* - - - ENTER “S'* TO 
- - - - EN’ER "A" TO 
-<*-* ENTER ”0" TO 



REENTER AOS ---* 
WRITE AOSDATA 
WRITE XSLOW 
WRITE SEGEIG ---- 
WRITE OPTEIG 



DAM-RT SLOW SUBSPACE RESIDUAL * 0.A3720E-01 »»"» 
---- DAM-LT SLOW SUESPACE RESIOUAL = 0.38988E-02 »»»•» 



UNO EVECT SLOW STATE RGT-OAM RESIOUALS LFT-OAM RESIOUALS 



38 


1 


0 . A 1 2°AE-02 


0 . 38 663c- 02 


0 . 6 1855E *0 1 


0.A681AE-01 


39 


2 


0 . A 1 3A Q E- 02 


0.387 03E-02 


0.6l855E*0l 


0 . Ab8 1 AE * 0 1 


AO 


3 


0.313 02E-02 


0.2879 6E-02 


0.86096E-01 


0 . 5A260E*01 


A 1 


A 


0 . A6OA0E-O2 


0.375AOE-02 


0 . 9 0522E-02 


0 . 63 9A 1 E- 02 


A2 


5 


0. A659 Q E-02 


0.37AA5E-02 


0.90522E-02 


0 . 639A IE-02 


A3 


6 


0 . 25A32E- 02 


0.2A18AE-02 


0 .8 6568E-0 1 


0 . 5 9235E*0 1 


AA 


7 


0 . 275A IE-02 


0.2601b £-02 


0 . 68°38E *0 1 


0 . A8 7A 3E» 0 1 


A5 


8 


0 . A 1 a 1 3E-02 


0 . 36 32 1 E- 02 


0. 10A85E*00 


0.7A161E-01 


Ab 


9 


0 .3*S7AE-03 


0 . 37°75E-03 


0. 15057E-01 


0. 12600E-01 


A7 


10 


0. 11A55E-03 


0 . 89 779E-0A 


0. 20671 E- 01 


0 . 1 A 6 l 6E-0 1 


A8 


1 1 


0. 1 5 32 bE-02 


0. 1381 IE-02 


0.11 5 36E-0 1 


0 .8 1 A 95E-02 



223 



0. 69335E*00 



6« 

50 

51 

s: 

53 

56 

55 



12 

13 

16 

15 

16 

17 

18 



0 . <>861 ?E-02 

0.5C770E-06 
0 . 35123E-05 
0 .62532E-03 
0 . 9Z292E-03 
0.26201 £-03 
0.2193 1E-C5 



0 . 93750E-02 
0 .67872E-06 
0 .36162E-05 
0.6C198E-03 
0 . 6 7828E-Q 3 
0 .26063E-03 
0 . 3 1 7 63E-05 



0 . 2 7 3 l 7E- 0 1 
0.23157E-01 
0 . 5 1 955E-0 1 
0 .0OOOOE*OO 
0 .00000E-00 
0 . OOOOCE’CO 



0 .69313E*00 
0. 19316E-01 
0.23056E-01 
0.36296E-01 
0. 00000E-00 
O.OOOOOE^OO 
0 . 0030C£*00 



l 



09 



ENTER 

**** ENTER 
ENTER 
-*** ENTER 
**«<«*• ENTER 

enter 

-«** ENTER 
***** ENTER 



'*1 M FOR MIN. OF LFT-OAM RESIDUALS ONLY - 
USING AR3 VECTOR ELEMENTS AS VARIA5LES** 
"2" FOR lft null space INTRSEC. ANALV. - 
"3 " TO SHIFT A DESIREO SLOW EIGENVALUE * 
M 6" TO EXIT ELSPACE ANO WRITE OPTEIG 
"5“ FOR MIN. OF LFT- OAM RESIOUALS ONLY - 
USING EIGENVALUE AS VARIABLE. * 

••6’* TO WRITE SEGE1G. « 

"7" TO EXIT ELSPACE. * 

"0" TO EXIT ELSPACE ANO WRITE XSLOM. * 



***** ENTER SLOW INOEX OF THE RESIOUAL FOR AOS ***** 



**** AOS IS 3EING ENTERED FOR ESLOUC 9) -*** 

***** Z = 0 . 9°978E*00 0 . QQ00QE*00J 

**** 3 = -0 . 1 76O2E-0 1 O.OOOOOE-OOJ 

***** ENTER 80UN0S CN THIS SLOW LF T EVECTCS ***** 

**** IN F2Q.13 FORMAT. **** 

**** UNDAMAGED eigenvector NO. 66**** 



**** real TOLERANCE = **** 

0.001 

***« IMAG TOLERANCE 3 **** 

0.001 



*** AOS complete **** 

08JECTIVE FUNCTION = O.13505E*Ol 

2-NORM OF RESIOUAL = 0.13505E*01 

OT 2-NORM OF OIFF = 0.28675E-02 

INFO = 0 ITER = 672 

OAM-LT 08J s 0.00000£*00 UND-LT 08J a 
WEIGHT FACTOR = 0. 1COOOE-01 



O.OOOOOE^OO 



1 



*** ENTER " 1 " 
*** ENTER "2” 
*** ENTER "S" 
-** ENTER "6 " 
*«* ENTER "0" 



TO REENTER AOS 
TO WRITE ADSDATA **** 
TO WR 1 7E XSLOW «*** 
TO WRITE SEGEIG **** 
TO WRITE OPTEIG **** 



***** DAM-RT SLOW SUSSPACE RESIOUAL = 0.63731E-01 **** 
**** OAM-LT SLOW SUBSPACE RESIOUAL * 0.38833E*02 **** 



UND EVECT SLOW STATE RGT-OAM RESIOUALS LFT-OAM RESIOUALS 



38 


l 


0 .61292E-02 


0 . 38661E-Q2 


0.61855E»01 


0.6b816£*01 


39 


2 


Q.61348E-02 


0 . 33 702E-02 


0. ol855E*01 


0.66816E-01 


60 


3 


0 . 3 1 30CE-02 


0 .C37'56E-02 


Q.8oQ96E*01 


0.56260E*01 


61 


6 


0 .66060E-02 


0.37560E-02 


0 . 90522E-02 


0 . 6396 IE-02 


62 


5 


0.66720E-02 


0.37596E-02 


0 .«0522E-02 


0.6396 IE-02 
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43 


6 


0 .2548 IE-02 


0 . 24 18 3E-02 


0 . 86568E*0 1 


44 


7 


0 .27540E-02 


0.260 15E-02 


0.689S8E-01 


45 


8 


0.41914E-02 


0 . 36321E-02 


0. 10488E*00 


46 


9 


0.398 726-03 


0 .379 73E-03 


0. 13505E*0I 


47 


10 


0.11465E-03 


0 .89782E-04 


0. 20671 E- 01 


48 


11 


C . 15326E-02 


0. 138 11E- 02 


0 . 1 1536E-01 


4« 


12 


C . °84 1 2E-02 


0 . 53745E-02 


0 . 6 9335E*00 


50 


13 


3. 52771 E- 04 


3.478 73E-04 


0. 27317 E- 31 


51 


14 


0 • 35 123E-05 


0 . 24 143E-05 


0. 23157 E- 01 


52 


15 


0. 425326-03 


0.42198E-03 


0.51 °55E- 0 1 


53 


16 


0.9330CE-03 


0 .&7827E-03 


0 . 00300E*00 


54 


17 


0 . 2 62 0 IE- 0 3 


0.26043E-33 


0 . OOOOOE^OO 


55 


18 


0.3i°8IE-05 


0 .31768E-05 


0 . 0030CE*00 




ENTER ••1" 


' FOR MIN. OF LFT- 


Dam RESIDUALS 


ONLY “*** 




USING ARB VECTOR ELEMENTS AS VARIABLES**-** 


"*•* 


ENTER "2" 


' FCR LFT NULL SPACE INTRSEC. ANALV. **** 


*“** 


ENTER “3" 


' TO SHIFT A DESIRED SLOW EIGENVALUE **** 




ENTER "A" 


1 TO EXIT EL'S? ACE 


AND WRITS OPTEIG *»»* 


tf 4 * « 


ENTER "5 *' 


' FCR MIN. OF LrT- 


Dam residuals 


ONLY 


** * * 




USING eigenvalue 


AS variable. 


* * *4 # 




ENTER M 6*’ 


' TO WRITE SEGEIG. 




» HU * 


* » *4 *4 


ENTER "7" 


' TD EXIT ELSPACE. 




* ¥ * *4 




ENTER "O" 


' TO EXIT ELSPACE 


AND WRITS XSLOW. ***** 


*ENT 


ER "l" TO 


CALC RESIDS FOR RECONSTRUCTED 


SPACE** 


*EL$' 


E ”C“. 






« 



i 



**** DAM-RT SLCW SUBSPACc RESIDUAL = 0.43731E-01 **** 
***• DAM-LT SLOW SUBSPACE RESIDUAL = 0 . 9 1277E*02 •••••*»• 



UNO EVECT SLOW STATE RGT-QAM RESIDUALS 



LFT-DAM RESIDUALS 



14 

00 


1 


0. 41292 E- 02 


0 .38661E-02 


0.21257c*02 


0 


39 


2 


0.41348E-02 


0 . 38 702E-02 


0 . 22255E-02 


0 


40 


3 


0 . 31 302E-02 


0 .287«6E-02 


0 . b8 949E*0 l 


0 


41 


4 


0 . 4o 34 0E-02 


0.37540E-02 


0 .90448E-02 


0 


42 


5 


0.46 72CE-02 


0.37594E-02 


0 . Q 1533E-02 


0 


43 


6 


0.2548 IE-02 


0.24183E-C2 


0. 16406E*02 


0 


44 


7 


0.27540E-02 


0.2o0I5E-02 


0. 92555E-01 


0 


45 


8 


0.41914E- 02 


0 . 36321E-02 


0 . 10489E*00 


0 


4 6 


0 


0 . 3 °8 72E-0 3 


0 .37 q 73E-03 


0 . 1 1592E*02 


0 


47 


10 


0 . 1 1465E-03 


0 .8 Q 782E-C4 


0.236 72E-0 1 


0 


48 


11 


0. 15326E-C2 


0. I38UE-02 


0. 1 1574E^0i 


0 


49 


12 


0.9841 3E-02 


0. 93745c- 32 


O 

00 

t*l 

m 

o 

o 


0 


50 


13 


0.52771E-04 


0.678 73E-06 


0.2731 7E- 0 1 


0 


51 


14 


0 . 35 123E-05 


0 . 34 143E-05 


C.2600IE-01 


0 


52 


15 


0.42S32E-03 


0 .42198E-03 


0. 51991 E-01 


0 


53 


16 


0 . 93300E-03 


0.6782 7E-03 


0.00000E-00 


0 


54 


17 


0.2620 IE- 03 


0.2606SE-03 


0. OOOOOE^OO 


0 


55 


18 


0 . 5 1 98 IE-05 


0 . 3 1 768E- 05 


0 . 00000E*00 


0 





ENTER 


“l M 


FCR MIN. OF LFT-DAM RESIDUALS ONLY 


* * M 


* * * * 




USING AR 8 VECTOR ELEMENTS AS VARIABLES** 


V + * 


» » » * 


ENTER 


••2" 


FOR LFT NULL SPACE INTR3EC. ANALY. 


# * * 


-t w * w 


ENTER 




TO SHIFT A DESIRED SLCW EIGENVALUE 


* * *' 




ENTER 


**6 M 


TO EXIT ELSPACE AND WRITE OPTEIG 


*** 




ENTER 


**5 M 


FOR MIN. OF LFT-DAM RESIDUALS CNLY 




+ # * * 






USING EIGENVALUE AS VARIABLE. 


W M M 




ENTER 


.. 6 „ 


TO WRITE SEGEIG. 




* * + * 


ENTER 


.. 7 .. 


TO EXIT ELSPACE. 




**** 


ENTER 


••0” 


TO EXIT ELSPACE AND WRITE XSLOW. 


*«* 



A 



59235E*0 I 
A8743E*0I 
74161 E- 01 
12601S-01 
14616E-01 
8 1 495E-02 
6 < ’318E*00 
l°316E-0l 
23054E-01 
36294E-01 
000 00E ♦ 0 0 
00000E*00 
0 0 00 0E*0 0 



.20396E*02 
.21394E*02 
. 5022 7E* 0 1 
.63 94 7E-02 
. 6 3968E- 02 
. I5390E*02 
.76S4S=*01 
.74163 E- 01 
. 1 1384c*0C 
. 14617E-01 
.814 «5E-02 
. 6°2 19E*00 
. 19315E-01 
. 25 6 9 7E* 0 l 
. 36295E-0 1 
.OOOOOE'OO 
. 0000CE*00 
.00000E-00 
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'ENTER -I" TO CALC RESIOS FOR RECONSTRUCTED SPACE* 
'ELSE "O'*. * 



0 

R; T=151 .67/156. B1 13:08:63 
RECONF 

VS FORTRAN COMPILER ENTcREO. 1 3 : 0 ° : 06 

* * MA IN** ENO OF COMPILATION I ------ 

--CMATML-- ENO OF COMPILATION 2 ------ 

- -RANKO* * ENO OF COMPILATION 3 ****** 

- -WRMATO- * ENO OF COMPILATION 6 - 

- -SROOT * * ENO OF COMPILATION 5 ------ 

VS FORTRAN COMPILER EXITED. 13:09:11 



LOaOING RECONF ANO OPACLSA 
EXECUTION BEGINS. . . 

ENTER T TO WRI~E UNOAMAGEO E IGENS7RUCTUPE . S 

SVST. MATRICES. CPEAO "RECONF” OATA Al , 
"UNOIEG" . "UNOaBC" . S "CLM". 

ENTER "2" TO REAO UNOAMAGED EIGcNSTRUCTURE anO 

WRITE SLOW RT SUBPACE OaTA FOR USE BY 
"ERSPACE" (WRITE "ERSPACE" OATA Al) 
ENTER “3" TO COMPUTE RECONFIGURED GAINS. 

(WRITE "FRECON" DATA Al ) 

ENTER "6 " TO COMPUTE RECONFIG. E IGENSTPUCTURE 

ANO TIME RESPONSE (CPTMATO.OPTPLOT ) 
ENTER "5" TO COMPUTE Q anO WRITE FILE 12 
"FXACT" DATA. 



3 



*--- ENTER "l" TO 0 1 SPLAY OESIRED E I GEN3TRCTUPE - - - * 
-*** ENTER "0" OTHERWISE. ---- 



0 



---- CALLING LSVOF FOP B **"* 



---- LSVOF OF "B" COMPLETE ---* 
---- Rank ( 8 ) = 10 *** 

---- calling lsvcf for c --** 

---- LSVOF OF -C" COMPLETE -**- 

-*** RANK (C ) s IB *--* 

R: TsB.36/9.72 13:09:61 
RECONF 

VS FORTRAN COMPILER ENTERED. 13:09:65 
--MAIN-- ENO OF COMPILATION 1 ------ 

--CMATML-* ENO OF COMPILATION 2 

- -RANKO* * ENO OF COMPILATION Z ------ 

- -WRMATO* - ENO OF COMPILATION 6 ------ 
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**SROOT«« SNO OF COMPILATION 5 »««<*-** 
VS FORTRAN COMPILER EXITED. 13:09:53 



LOADING REOONF ANO CRACLSA 
EXECUTICN 3EGINS... 



ENTER "I" TO WRITE LNDAMAGEO ei genstructurs . a 

S V ST . MATRICES. (READ "PECOnF" DATA Al. 
"UND I EG" . "UNDA3C" . S "CLM" . 

ENTER "0" TO REAO UNDAMAGED E IGENGTRUC t URE AND 

<-R ITE GLCW RT SUoPACE DATA FOR USE 8Y 
"ERSPACE" (WRITE "SRSPACE" DATA Al) 
ENTER "3" TO CC^PUTE RZCCnFIGUPED GAINS. 

(WRITE "FRECON" DATA Al) 

ENTER " A " TO COMPUTE RECON c IG. E IGENGTRUCTURE 

AND TIME RESPONSE (OPTMATD.OPTPLOT) 
ENTER "5" TO COMPUTE G ANO WRITE FILE 1 2 
"EXACT" DATA. 



«««« ENTER "1" TO DISPLAY RECONFIGURED 
EIGEN37RUCTURE. ELSE ENTER "0" . 

0 

DAMAGED feedback gain matrix *-•*» 



COL 1-9 



0.21435E'C0 


-0 . 13143E*0 0 


O.OOOOOE'OO 


O.OOOOOE'OO 


0.24000E-01 


0. OOOOOE'OO 


-0.25739E-02 


0. 7A813E-03 


-0. 19U1E-01 


0 .2143SE*00 


-0. 13143E'00 


0 . OOOOOE'OO 


0 . 000 0 OE' 00 


-0.2AOOOE-01 


0 . OOOOOE'OO 


-0 .25739E-02 


0. 74313E-03 


-0.19141E-01 


O.OOOOOE'OO 


O.OOOOOE'OO 


0.20RA8E-01 


O.OOOOOE'OO 


0 .OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0 . OOOOQE'OO 


0 . OOOOOE'OO 


0.20948E-01 


O.OOOOOE'OO 


0 . OOOOOE'OO 


O.OOOOOE'OO 


0 . OOOOOE'OO 


0 . OOOOOE'OO 


0 . OOOOOE'OO 


O.OOOOOE'OO 


0 . OOCOCE'OO 


0. 11028E-01 


0 . OOOOOE'OO 


0 . 1 9200E-0 1 


O.OOOOOE'OO 


0 . OOOOOE'OO 


0 . OOOOOE'OO 


0 . OOOOQE'OO 


O.OOOOOE'OO 


0 . OOOOOE'OO 


0 . 1102SE-01 


0 . OOOOOE'OO 


-0. 19200E-01 


0 . O0OOOE*O0 


0 . OOOOOE'OO 


0 . OOOOOE'OO 


0 . OOOOOE + OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0 . OOCCOE'QQ 


0 . OOOOQE'OO 


0.600C0E-01 


0 . OOOOOE'OO 


0 . OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0 . OOOOOE'OO 


0 . OOOOOE'OO 


o.oooocs'oo 


-0 . 60000E-01 


0 . OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0 . 000 00E *00 


O.OOOOOE'OO 


O.OOOOOE'OO 


0. 68°37E*00 


0 . 3880 7E* G 0 


O.USOOE*02 


0 . OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0 . OOOOOE'OO 


O.OOOOOE'OO 


0.68937E'00 


0 . 3880 7E *0 0 


0 . 1 6500E' 02 


0 .OOOOOE'OO 


0 . OOOOQE'OO 


O.OOOOOE'OO 


COL 


10 - 18 

















-0. 19141E- 


Cl -0.2107 Q E' 


00 - 0 . 38282E- 


01 0.C0000E' 


00 0. OOOOOE 


♦00 0.00000E 


o 

o 

o 

o 

o 

o 

o 

o 

m 


00 0 . OOOOOE* 


00 0 . OOOOOE 


0 . 19161E-01 


-0.21 079E*00 


-0 .38282E-01 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0. OOOOOE'OO 


0 . OOOOOE'OO 


O.OOOOOE'OO 


0 . A 12I5E-0 1 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0 . OOOOOE'OO 


O.OOOOOE'OO 


0 . OOOOCE'OC 


0.A1Z3SE-01 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0 . OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0 . 2 1883E-0 1 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0 . OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0 . 2 1883E-0 1 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0 . OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


0 . OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


-0.8565 6E-Q2 


-0 . 49395E-02 


0 . 7804QE-04 


0 .31750E-02 


0 . OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


O.OOOOOE'OO 


- 0 . 85 6 3aE-02 


-O.AR39SE-02 


0. 78040E-04 


0.31 75 0E-02 




ftilda •**««• 

















COL 1-9 

0.2I414E*00 -0 . 13102E*00 0.44209E-03 0.86601E-06 0.24001E-01 0.38586E-05 -0.26040E-02 0 . 74733E-03 -0 . 19364E-01 



0.2141 '00 


-0. 13102E'00 


0 . 44 1 7 IE- 03 


-0.3291 0E-06 


-0 .24001E-01 


0.42988E-05 


-0.26C40E-02 


0.74733E-03 


-0 . l a 364E-0i 


0 . 35 38 9E-C2 


0.74240E-02 


0. 26697 E- 01 


-0. 90519E-06 


-0 .29955E-06 


-0. 1985 a E-04 


-0 . 5 002 Q E-0 3 


-0. 13901E-04 


-0.37204E-02 


0 . 35 390E-02 


0 . 74241 £-02 


0.256 °8E- 0 1 


-0 . 905 1 7E-06 


-0.29°54E-06 


-0 . 1 c 85 °E-04 


-0 . 50030E-03 


-0. 13°02E-04 


-0 . 3 72C5E-02 


0 . 5°863E-Q2 


- 0 . 93 3 88E-02 


0 . 4 786 6E- 02 


-0. 10017E-04 


0. 19203E-01 


-0 . 22S55E- 03 


0.51752E-03 


0 . 228 12E-04 


0-38487E-02 


0 . 5 “65 9E-02 


-0. 93978E-02 


0.47956E-02 


-0. 1 4 3 9CE-05 


-0. 1 9204E-01 


0.20425E-04 


0.517 43E-0 3 


0.2281 2E-04 


0.38484E-02 


0. 26492 E- 07 


-0. 182I4E-06 


-0. 15221E-05 


-0 . 16780E-05 


0. 60005E-01 


-0.523&1E-04 


-0.30742E-08 


0 .28^45E- 10 


-0.35545E-07 


0. 26453 E- 07 


0. 18196E-06 


0. 1S203E-05 


0. 16764E-0S 


-0. o0005E-01 


0 . 52332E-04 


0 . 30 76 Q E- 03 


-0 . 28 758E- 1 0 


0 . 355 66E-0 7 


0. 14968E-0S 


-0.6 3 927E- 05 


-0.43987E-04 


0. 68945E'00 


0 . 388 1 0E* 00 


0. 1650CE'02 


0.892 18E- 0 7 


0. 72124E-08 


0 . 64 980E-06 
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0.14751E-05 -0.62450E-05 -0.62 Q 32E-04 0.68942E*00 0.38810E*00 0.16500E*02 0.86Q11E-07 0.712S0E-08 0 . 625°5E-0a 

COL 10 - 18 



-0.19364E-01 
0 . 1 9364E-01 -0 
0 . 27204E-02 0 
o . :7:o5c-o; o 
0 - 3848~e-02 -0 
0 . 33^84c-02 -0 
0.3SS45E-07 -0 
0.3S5oac-07 0 
0 . 64 a 8 Oe-O 6 -0 
C . 62S 9Sc- 0 6 -0 



-o .2ic: 
2102SE' 
9 23275- 
^38 2 9E- 
12294E- 
12293E- 
9 7 1 S a E- 
97002E- 
56788E- 
S6191E- 



SE* 00 -0.28 728E- 

00 -0 . 38 728E-0 1 
02 -0 . 744C7E-02 
0: -3.744Q9E-02 

01 0 . 7 69bSE-02 

01 0.76959E-02 

07 -0 .‘.72c0E-07 
07 0.47287E-07 

05 0. 19318 E- 05 

C5 0.18861E-CS 



01 0.24654c- 

0.2465«E-C4 
0.412995-01 
0 .41299E-0I 
-0 .S70S7E-04 
-0 .S7047E-C4 
-0. 190S7E-08 
0. l*02CE-08 
-0 . 1S384E-06 
-0. 1S834E-06 



04 0.17951E-04 

0 . 1 7° 18E- 04 0, 

0.4351 5E- 03 -0, 
0.435HE-02 -0, 
0.C14C8E-01 -0, 
O.C140 Q E-Ol -0. 
- 0 . 1 7 1 58E- 0 6 0 

0. 17122 E- 06 -0, 
-0.59742E-05 -0 , 
-0.S9690E-05 -0, 



0.10460E- 
1347«E-07 
20406E-07 
3C4C5E-07 
S6211E-07 
U108E-06 
1 S267E-07 
15S28E-07 
8S640E-02 
8 5 63 7E-32 



07 0.54048E- 

0 . 65 79 1 E-C8 
-0. U204E-07 
-0 . 1 6203E-07 
-0 .2842 IE-07 
-0. 10292E-06 
0 . 1226°E-07 
-0. 12425E-07 
-0 .49298E-0C 
-0 .493°8E-02 



08 -0.22918E- 
-0 .2255 IE-08 
0.42507E-08 
0.42S10E-C8 
-0 .298 28E-C8 
-0.26047E-08 
-0. 79990E-10 
0 . 79 a 30E- 1 0 
0 . 7804 IE-04 
0.7804SE-04 



08 -0 .844'>9E-08 
-0 . 6 Q 3°4E-08 
0. 15982E-C7 
0. 15 c 85E-07 
0.2266 l£-0 7 
0.48417E-07 
-0 . 49395E-08 
0 .4°S28E-03 
0.31 752E-02 
0. 3 1 753E-02 



«■»"* ENTER "1" FOR TIME R£3P0?^3E CALC. 
ENTER "0" OTHERWISE. 



0 

R; Ts7.57/°.04 12:10:25 
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